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

Question

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

Answer 1

 var
 a,k,n,i:integer;
begin
k:=0;
 writeln('Enter sequence size:');
 readln(n);
 for i:=1 to n do
  begin;
   readln(a);
    if (a mod 3=0) and (a mod 10=2) then k:=k+1;
  end;
writeln('Number of accepted:',k);
end.