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.