Напишите программу, которая в последовательности чисел определяет количество чисел,...

Question

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

Answer 1

Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.

Comments

inc? Можно его как нибудь заменить? Чтоб без него решать 

---

inc - инкремент. Можно заменить на k:=k+1;