С клавиатуры вводится число, состоящее не более чем из 200 цифр. Найти кол-во нечетных цифр данного числа

var

a, b, c, s: integer; / / объявляем переменные целочисленного типа.

begin

write ('Введите число:'); / / вывод строки на экран.

read (a); / / считываем число, введенное с клавиатуры.

c: = a; / / запоминаем введенное число в переменной с.

while a > 0 do / / начало цикла.

begin

b : = a mod 10; / / определяем последнюю цифру числа.

if (b mod 2 > 0) then / / проверяем четность цифры.

s: = s + 1; / / считаем кол-во нечетных цифр.

a : = a div 10; / / удаляем последнюю цифру из числа.

end;

writeln ('Количество нечетных цифр в числе ', c,'равно ', s); / / вывод строки на экран.

end.