Помогите пожалуйста:
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число - количество чисел, оканчивающихся на 6.

Program p1;Var a,n,kol:integer;beginreadln(n);kol:=0;for i:=1 to n dobeginreadln(a);If a mod 10=6 then kol:=kol+1;end;writeln(kol);end.