program PascalGuru;
var A:array[1..100,1..100] of integer; {переменная массива}
    i,j,n,summa:integer; {переменные для циклов}
 
begin
write ('Vvedite razmer matricy A: ');
readln (n);
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;
 
write ('Vot vvedennai vami matrica A: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8); end;
 
writeln;
writeln('SR.ARIF:');
 
for j:=1 to n do
    begin
    summa:=0;
    for i:=1 to n do summa:=summa+A[i,j];
    write(summa/n:8:2);
 
    end;
 
readln;
end.