const n=5; ver m:array [1..n] of integer; i:integer; begin randomize; for i:=1 to n do begin m[i]:=random(11)-5; writeln(m[i]); end; for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]); for i:=1 to n do writeln(m[i]); end.