Помогите составить программу для Паскаль. Дано n-чисел. Найти кол-во чисел, кратных 4 и оканчивающихся на 2 .

var a:array[1..100500] of integer;
q,i:integer;
begin
readln(q);
for i:=1 to q do
readln(a);
for i:=1 to q do
if (a div 4 = 0) and (a mod 10 = 2) then writeln(a);
end.