Заполнить массив (с клавиатуры) и вывести его на экран

М[1..9] числами 3,4,7,9,19,23,24,27,39. Вывести числа, кратные 3

var i: integer;         m: array[1..9] of integer;begin      for i := 1 to 9 do             readln(m[i]);      for i := 1 to 9 do             if(m[i] mod 3 = 0) then write(m[i]:3);end.