:напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. программа получает на вход количество чисел в последовательности, а затем сами числа. программа должна вывести одно число - количество чисел, оканчивающихся на 6.
Var a,n,kol:integer;
begin
readln(n);
kol:=0;
for i:=1 to n do
begin
readln(a);
If a mod 10=6 then kol:=kol+1;
end;
writeln(kol);
end.