program z1;
var i:integer;
a:array[1..15] of integer;
begin
for i := 1 to 15 do
a[i]:=random (11) - 5;
write (a[i]:5)
end;
writeln;
if a[i] > 0 then a[i]:=sqr(a[i])*a[i];
if a[i] < 0 then a[i]:=abs(a[i]);
end
end.
program z1;
var i:integer;
a:array[1..15] of integer;
begin
for i := 1 to 15 do
begin
a[i]:=random (11) - 5;
write (a[i]:5)
end;
writeln;
for i := 1 to 15 do
begin
if a[i] > 0 then a[i]:=sqr(a[i])*a[i];
if a[i] < 0 then a[i]:=abs(a[i]);
write (a[i]:5)
end
end.