program mn;
uses crt;
var a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,m,nom,k,z:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(40)+2;
write(a[i,j]:4);if a[i,j] then m:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
m:=a[i,1];nom:=i;
for j:=i to n do
if a[j,1]>m
then begin
m:=a[j,1];nom:=j;
end;
if nom<>i
then begin
for z:=1 to n do begin
k:=a[i,z];
a[i,z]:=a[nom,z];
a[nom,z]:=k;
end;
end;
end; writeln;
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:3);
writeln;
end;
readln;
END.