Дано натуральное число. Определить количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать.(Паскаль)

Предыдущий
вопрос Следующий
вопрос

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

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

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

end;

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