А это вторая - с двумя вариантами. И да, если у Вас этот грёбаный лжепаскаль АВС, то LongInt замените на Integer.
Код:
Var
n,n1,m:LongInt;
num:byte;
Begin
Write('n= ');
Readln(n);
n1:=n;
num:=0;
Repeat
m:=n mod 10;
if (m mod 2)=1 then Inc(num);
n:=n div 10;
Until n=0;
Writeln('Result: ',num,' figures');
n:=n1;
num:=0;
While n>0 do
begin
m:=n mod 10;
if (m mod 2)=1 then Inc(num);
n:=n div 10;
end;
Writeln('Result: ',num,' figures');
Readln
End.