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

Вот Вам совсем без условий:

Var a,n : Integer;
Begin
  n:=0;
  Readln(a);
  While a>0 do
  Begin
    Inc(n,Ord(not Odd(a mod 10)));
    a:=a div 10;
  end;
  Writeln('Чётных цифр: ',n);
end.