program CountEvenDigits;

var
num, digit, count: integer;

begin
count := 0;

writeln('Введите натуральное число: ');
readln(num);

while num > 0 do
begin
digit := num mod 10;

if digit mod 2 = 0 then
count := count + 1;
num := num div 10;

end;

writeln('Количество четных цифр в числе: ', count);
end.