Заполнить массив (с клавиатуры) и вывести его на экран М[1 ... 9] числами 3,4,7,9,19,23,24,27,39. Вывести числа, кратные 3

program zz1;

const n = 9; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем числа 3,4,7,9,19,23,24,27,39 с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if m[i] mod 3 = 0 / / проверяем, если число делится на три без остатка, то

then write (' ', m[i]); / / выводим ответ

end.