дано целое число A. определить количество нечётных цифр в числе
в Pascal abc

program qwe; var A:longint; s:byte; begin write('Введите число: '); readln(A); s := 0; A := abs(A); while A > 0 do begin if not odd(A) then  inc(s, A mod 10); A := A div 10 end; writeln('Сумма чётных цифр = ', s); readln end