Дана последовательность чисел, заканчивающаяся нулем (ноль - признак окончания ввода). Напишите программу, которая находит сумму чисел, кратных 6 и заканчивающихся на 4.

Пример

Ввод Вывод
1
24 78
3
54
0

Var i,s:integer;begins:=0;readln(i);while i<>0 dobeginif (i mod 6=0) and (i mod 10=4) thens:=s+i;readln(i);end;writeln(s);end.

Program n1;var a,sum: integer;beginreadln(a);while a<>0 dobeginif (a mod 6=0) and (a mod 10=4) then sum:=sum+a;readln(a);end;writeln(sum);end.