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;
k:= n div 2;
if n mod 2<>0
then inc(k);zn:=n;
for i:=1 to k do begin
for j:=1 to n do
a[zn,j]:=a[i,j];
dec(zn);
end;
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:4);
writeln;
end;
readln;
END.