const
n = 3;
var
a: array [1 .. n, 1 .. n] of real; // исходный массив
s: array [1 .. n] of real; // массив - суммы по столбцам
i, j: integer;
begin
randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(10);
write(a[i, j]:2:0, ' ');
s[j] := s[j] + a[i, j];
end;
writeln;
end;
writeln;
for i := 1 to n do
write(s[i]:2:0, ' ');
readln;
end.