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

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.