Найти сумму нечетных цифр в заданном с клавиатуры числе.

Var

str : string;

i, c, a, count : integer;

begin

i:=1;

count : = 0;

writeln ('Вводите числа, как только введете все числа нажмите любую букву') ;

while i=1 do begin

readln (str) ;

val (str, a, c) ;

if (a mod 2 0) then count : = count + a;

if (c0) then i:=0;

end;

writeln ('Сумма нечетных чисел = ', count) ;

end.