function GetSumm(a: array[,] of integer; k: integer) :=
a.Col(k).Sum;
begin
var (m, n) := ReadInteger2('Число строк и столбцов матрицы:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
var k := ReadInteger('Сумма какого столбца нужна?');
if k in (1..n) then
Print('Сумма равна', GetSumm(a, k - 1))
else
Print('Неверный номер столбца')
end.
