Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4

Нужно написать программу в кумире

Var b, I:integer;

a:array [1 ... 8] of integer;

begin

writeln ('введите числа');

for I:=1 to 8 do

read (a[I]);

b:=0;

for I:=1 to 8 do

if (a[I] mod 3=0) and

(a[I] mod 10=4) then

b:=b+1;

writeln (b);

readln;

end.