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

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