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

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.