program h10na10;
uses crt;
Const n=10;
Var H:Array [1..n,1..n] of integer;
    i,j,k:integer;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
H[i,j]:=random(9);
Write (H[i,j],'  ');
end;
Writeln;
end;
Writeln; Writeln; Writeln;
for i:=1 to n do
    begin
    k:=H[i,i];
    H[i,i]:=H[i,n-i+1];
    H[i,n-i+1]:=k;
    end;

for i:=1 to n do
begin
for j:=1 to n do
Write (H[i,j],'  ');
writeln;
end;


readkey;
end.