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

program summ;

var m, s, i: integer;

//Процедура indikat: если в числе есть нечетные цифры,

//то переменная i > 0

procedure indikat (var m, i:integer);

var n: integer;

begin

i: = 0;

n: = m;

while n > 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 0 do

begin

write ('Введите число: ');

readln (m);

indikat (m, i);

if i = 0 then s: = s + m

end;

writeln ();

writeln ('Cумма чисел с четными цифрами ', s)

end.