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

begin

 var a := 1234567;

 var s := 0;

 while a > 0 do

 begin

   s += Ord(a mod 10 mod 2 = 0);

   a := a div 10;

 end;

 s.Println;

end.