Вводятся N произвольных естественных чисел. Отыскать сумму тех из них ,

program summ;
var m, s, i: integer;

//Процедура indikat: если в числе есть нечетные числа,
//то переменная i gt; 0
procedure indikat(var m,i:integer);
var n: integer;
begin
i:= 0;
n:= m;
while n gt; 0 do
begin
i:= i + (n mod 10) mod 2;
n:= n div 10
end
end;

begin
s:= 0;
m:= 1;
writeln(Окончить ввод 0);
writeln();
while m lt;gt; 0 do
begin
write(Введите число: );
readln(m);
indikat(m, i);
if i = 0 then s:= s + m
end;
writeln();
writeln(Cумма чисел с четными цифрами , s)
end.