Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.программа получает на вход количество чисел в последовательности,а затем сами числа.количество чисел не превышает 100.введенные числа по модулю не превышают 300.программа должна вывести одно число: количество чисел,кратных 6 и оканчивающихся на 2.
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.