Напишите программу,которая в последовательности натуральных чисел определяет сумму чисел,кратных 3.программа ролучает на вход количество чисел в последовательности,а затем сами числа.в последовательности всегда имеется число,кратное 3.количество чисел не превышает 100.введённые числа не превышают 300.программа должна вывести одно число-сумму чисел,кратных 3.
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.