var
a: array [1..5, 1..5] of integer;
i, j, n: byte;
sum: integer;
begin
randomize;
writeln(' *** Исходный массив *** ');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := random(41) - 10;
write(a[i, j]:5);
end;
writeln;
end;
write('Введите № столбца: ');
readln(n);
sum := 0;
for i := 1 to 5 do
sum := sum + a[i, n];
writeln('Сумма элементов ', n, ' столбца = ', sum);
end.