program CountEvenDigits;
var
num, digit, count: integer;
begin
count := 0;

write('Введите натуральное число: ');
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.