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