Затруднения с циклами Опции

[Vaso]

Кто-нибудь может мне помочь сотавить алгоритм по задаче, т.к. я только начал учиться писать на Паскале:
Требуется подсчитать количество цифр больших 9, у натурального числа N в шестнадцатиричной
системе счисления.

[volvo]

Перед тем, как решать подобные задачки, тебе надо вывести формулу общего члена последовательности... В данном случае

Код

                    X^n
  Xn = (-1)^n * ------------
                 (2^n) * n

А теперь приступай к вычислениям...

Вот так ничего не вылетает:

const
  eps = 0.0001;
Var
  n, sign: integer;
  x, s, next: real;

begin
  repeat
    write('Vvedite |x| < 1 ');
    readln(x);
  until abs(x)<1;

  sign := 1; n := 1;
  next := x / 2;
  s := next;
  repeat
    next := next * x / 2;
    inc(n); sign := -sign;
    s := s + (sign * next / n)
  until (next / n) < eps;

  writeln('s = ', s:10:7);
end.