Напишите программу которая считает количество чётных цифр введённого числа

var

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

begin

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

read (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 ('Количество четных цифр введенного числа равно: ', s); / / вывод строки на экран.

end.