program matrica;
var
i,j,k,n,max:integer;
m,l:array[1..1000,1..1000] of integer;
begin
writeln('Введите значение n');
readln(n);
Writeln('Введите максимальное значений элементов матрицы');
readln(max);
n:=n*2;
for i:=1 to n do
for j:=1 to n do
m[i,j]:=random (max+1);
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:3);
writeln;
end;
l:=m;
k:=n div 2;
for i:=1 to k do
for j:=1 to k do
l[i,j]:=m[i+k,j+k];
i:=k;
j:=k;
for i:=k+1 to n do
for j:=k+1 to n do
l[i,j]:=m[i-k,j-k];
for i:=k+1 to n do
for j:=1 to k do
l[i,j]:=m[i-k,j+k];
i:=k;
j:=k;
for i:=1 to k do
for j:=k+1 to n do
l[i,j]:=m[i+k,j-k];
Writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(l[i,j]:3);
writeln;
end;
end.