Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 3 и оканчивающихся на 4. ​

program aver;

var s, n, k :integer;

begin

n:= 1; // значение числа для входа в цикл while

s:= 0; // сумма чисел, удовлетворяющих условию

k:= 0; //счетчик чисел

writeln ('Введите серию чисел,');

writeln('заканчивая ввод каждого числа нажатием на Enter');

while (n <> 0) and (k < 1000) do

begin

read(n);

if n > 30000 then

begin

writeln('Число не должно быть больше 30000');

read(n);

end;

if (n mod 10 = 4) and (n mod 6 = 0) then s:= s + n;

k:= k + 1;

end;

writeln('сумма = ', s)

end.

summ = 0

count = 0

while 1:

   a = int(input())

   if count == 1000: break

   elif a == 0:

       break

   elif a > 30000:

       continue

   count += 1

   if a % 3 == 0 and str(a)[-1] == "4":

       summ += a

print(summ)