Program n_1;
var i: integer; arr: array [1..60] of integer;
begin
randomize;
for i:=1 to 60 do begin arr[i]:=random(36)+10; write(arr[i]:4, ' '); arr[i]:=arr[i]*arr[i]; end;
writeln();
for i:=1 to 60 do write(arr[i]:4, ' ');
end.
Program n_1;
var i: integer; arr: array [1..60] of integer;
begin
randomize;
for i:=1 to 60 do begin arr[i]:=random(36)+10; write(arr[i]:4, ' '); arr[i]:=arr[i]*arr[i]; end;
writeln();
for i:=1 to 60 do write(arr[i]:4, ' ');
end.