Напишите программу,которая для последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел,кратных 3 и при этом меньших 150.программа получает на вход количество чисел в последовательности,а затем сами числа. количество чисел не превышает 100.введённые числа не превышают 300. программа должна вывести одно число-сумму вех входящих в последовательность чисел,кратных 3 и при этом меньших 150. входные данные: 3 33 6 270 выходные данные 42
var a,i,k,sum:integer;
begin
read(a);
for i:=1 to a do begin
read(k);
if(k mod 3 =0)and(k<150)then sum:=sum+k;
end;
write(sum);
end.