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

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

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

begins:= 0;m:= 1;writeln(\'Закончить ввод — 0\');writeln();while m <> 0 dobeginwrite(\'Введите число: \');readln(m);indikat(m, i);if i = 0 then s:= s + mend;writeln();writeln(\'Cумма чисел с четными цифрами \', s)end.