Program Shirhan;
var a,b:array[1..100,1..100]of integer;
i,j,n,p,m:integer;
 begin
n:=10;
writeln ('Vvedite massiv:');
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (a[i,j]); end;
 
     for i:=1 to n do
      for j:=1 to n do
       b[j,i]:=a[i,j];
 
	for i:=1 to n  do
	begin
	p:=0;
	 for j:=1 to n div 2 do
	  begin
	  m:=b[i,j];
	   b[i,j]:=b[i,n-p];
	    b[i,n-p]:=m;
	     inc(p);
	   end;
	 end;
 writeln ('Vot massiv A, povernutii na 90*:');
       for i:=1 to n do
	begin
	 for j:=1 to n do
	  write(b[i,j]:3);
	   writeln;
	end;
 
        readln;
end.