5. дан двумерный массив целых чисел. составить программу, которая определяет, есть ли в некотором столбце массива хотя бы один элемент, кратный заданному числу.

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 var nCol := ReadInteger('В каком столбце ищем?');

 var C := ReadInteger('На кратность чему проверить?');

 if a.Col(nCol - 1).Any(t -> t mod C = 0) then

   Writeln('Есть такие элементы')

 else Writeln('Таких элементов нет')

end.