Введите с клавиатуры 8 положительных целых чисел. определите, сколько из них делятся на 3 и при этом заканчиваются на 4. программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4.

Var numb,count,k:integer;
begin
for k:= 1 to 8 do
begin
readln(numb);
if (numb mod 10 = 4) and (numb mod 3 = 0) then
count:=count+1;
end;
writeln(count);
end.