Напишите программу, которая вводит массив из n целых чисел и выводит на экран элементы, кратные числу k. протестировать программу на следующих исходных данных: а) k=3 массив: 2 6 -9 4 5 12 -15 б) k=4 массив: 9 0 8 124 -16 11 19

Begin
  var ar := readarrinteger(readinteger('Введите n:'));
  var k := readinteger('Введите k:');
  ar.Where(x -> x mod k = 0).print;
end.