program mn;
uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,k,zn:integer;
BEGIN
ClrScr;
Write('N:');readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(40);
Write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
for j:=1 to 3 do
a[i,j]:=sqr(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:6);
writeln;end;
readln;
END.