program hh;
uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
i,j:integer; p,s:integer;
Begin
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:7); end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i+1 to n-1 do begin
p:=a[i,j];
a[i,j]:=a[n-i+1,j];a[n-i+1,j]:=p;
end;
for i:=1 to n div 2 do
for j:=i+1 to n-1 do begin
s:= a[j,i];
a[j,i]:=a[j,n-i+1]; a[j,n-i+1]:=s;
end;
writeln('---------------------');
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:7); end;
writeln; end;
end.