Program zamena;
Uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
i, j, n, k1, k2, r: integer;
BEGIN
clrscr;
randomize;
write('n='); readln(n);
 for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(45)-22;
write(a[i,j]:4);
end;
writeln;
end;
 for j:=1 to n do begin
r:=a[2,j];
a[2,j]:=a[m-1,j];
a[m-1,j]:=r ;
end;
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:4);
end;
writeln;
end;
readln;
END.