Напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 3 и оканчивающиеся на 2. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести отдел число: сумму чисел, кратных 3 и оканчивающихся на 2. Входные данные: 4 12 25 12 9 Выходные: 24
var n,a,s,i: integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 3=0)and(a mod 10=2)
then s:=s+a;
end;
writeln(s);
end.