Напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 3 и оканчивающичся на 4.Программа получает на вход количество чисел в последовательности а затем сами числа. В последовательности всегда имеется число кратное 3 и оканчивающееся на 4.Количество чисел не превышает 100.Введенные числа по модулю не превыщает 300.Программа должна вывести одно число: сумму чисел кратных 3 и оканчивающехся на 4.
Входные данные
3
24
25
54
Выходные данные
78

var n,a,i,s:integer;begin readln(n); for i:=1 to n do  begin   readln(a);   if (a mod 10=4) and (a mod 3=0) then s:=s+a;  end; writeln(s);end.