Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 3. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число– количество чисел, оканчивающихся на 3.
var n, ch, k, i:longint;
begin
k:=0;
i:=0;
for i to n do
begin
readln(ch);
if (ch mod 10=3) then
k:=k+1;
readln(ch);
end;
writeln(k);
end.