Дано целое число 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