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

var a,x,k:integer;

begin

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

read(a);

x:=a;

k:=0;

while (x>0) do

begin

if (x mod 2=0) then k:=k+1;

x:=x div 10;

end;

writeln('Количество четный цифр= ',k);

end.