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

const N:=30(любое значение);var a:array[1....N] 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.