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

Var a,sum,i,n:integer;Begin Writeln('Введите количество чисел в последовательности');Readln(n);Writeln('Вводите числа');For i:=1 to n dobeginReadln(a);If (a mod 2 = 0) and (a mod 3 <>0) then sum:=sum+ a;end;Writeln('Сумма четных чисел не кратных 3 = ', sum);end.