Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел , не кратных 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется четное число , не кратное 3. количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число- сумму четных чисел, не кратных 3.
a,sum,i,n:integer;
Begin
Writeln('Введите количество чисел в последовательности');
Readln(n);
Writeln('Вводите числа');
For i:=1 to n do
begin
Readln(a);
If (a mod 2 = 0) and (a mod 3 <>0) then sum:=sum+ a;
end;
Writeln('Сумма четных чисел не кратных 3 = ', sum);
end.