Program PascalGuru;
var a:array[1..100,1..100]of integer;
i,j,n,p:integer;
 
procedure exchange(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c; end;
 
Procedure Exchange_Line (M1,M2:integer);
var j:integer;
begin
for j:=1 to n do exchange (a[M1,j],a[M2,j]);
end;
 
 
begin
write ('Vvedite RAZMER matricy A:');
readln(n);
writeln ('Vvedite matricy A:');
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (a[i,j]); end;
 
writeln ('Vot vvedenaia matrica A:');
for i:=1 to n do
	begin
	 for j:=1 to n do
	  write(a[i,j]:3);
	   writeln;
  end;  writeln; writeln;
 
{*********************************************}
p:=n div 2;
for i:=1 to p do Exchange_Line(i,(n+1)-i);
{*********************************************}
 writeln ('Vot matrica A posle obmena:');
for i:=1 to n do
	begin
	 for j:=1 to n do
	  write(a[i,j]:3);
	   writeln;
  end;
 
readln;
end.