Составить в паскаль программу вывода на экран чисел кратных трём из 10 введённых чисел в компьютер

Program kratni_trem;
var: array[1..10] of integer; i:integer
begin
For i:=1 to 10 do
read(a[i],’ ‘);

For i:=1 to 10 do
If a[i] mod 3=0 then write(a[i], ‘ ‘);
end.