var x:real;
    flag:boolean;
Begin
Flag:=False;
Repeat
Write('Введите число X: '); Readln(X);
if ((X > 0.0) and (X <= 9999.0)) then
                                      Begin
                                      if (Frac(X) = 0) then Flag:=True
                                                       else Writeln('ОШИБКА: Число не является целым...');
                                      end
                                else Writeln('ОШИБКА: Число не соответсвует диапазону...');
Until Flag;

if (X < 10.0) then Writeln('кол-во чисел - 1')
              else if (X < 100.0) then Writeln('кол-во чисел - 2')
                                    else if (X < 1000.0) then Writeln('кол-во чисел - 3')
                                                         else Writeln('кол-во чисел - 4');

end.