Напишите программу,которая в последовательности натуральных чисел определяет сумму чисел,кратных 3.Программа ролучает на вход количество чисел в последовательности,а затем сами числа.В последовательности всегда имеется число,кратное 3.Количество чисел не превышает 100.Введённые числа не превышают 300.Программа должна вывести одно число-сумму чисел,кратных 3.

var   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.VVVVVVVVVVVVVV