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

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

Var i,s:integer;
begin
s:=0;
readln(i);
while i<>0 do
begin
if (i mod 6=0) and (i mod 10=4) then
s:=s+i;
readln(i);
end;
writeln(s);
end.