Напишите программу которая определяет кол-во чисел кратных 3 в n последовательности чисел введенных с клавиатуру. сделать через массив , !

Const N:=30(любое значение);
var a:array[1N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.