Найти сумму ряда с необходимой точностью на паскале

[Раздва]

Данная программа находит сумму ряда. Ряд , где n от 1 до бесконечности. Задаётся х и е, е - это необходимая точность, и как только n-й член ряда станет меньше e, то программа завершается и подсчитывает сумму членов, кроме того, что меньше е. Также программа выводит количество этих членов.
Здесь используется функция ln(x), и проблема в том, что я х должен быть в этой функции только положительный, а мне нужно, чтобы и с отрицательными тоже работало.
Вот код программы:

Program tochnoct;
var x,e,s,ch:real;
    n,i:integer;
begin
  write('Введите x: ');
  readln(x);
  write('Введите e: ');
  readln(e);
  n:=0;
  s:=0;
  ch:=0;
  repeat
    s:=s+ch;
    inc(n);
    ch:=n/exp(n*ln(x));
  until(ch<e);
  writeln('Rezultat: ',s:0:16,' , ',n-1,' chlenow');
  readln;
end.

Подскажите, как решить эту проблему?

[Stilet]

а мне нужно, чтобы и с отрицательными тоже работало.

Если не опшибаюсь логарифм оттрицательного числа не берется.

[gylayko]

втыкни перед логарифмом модуль!

[Firstchar]

создай еще одну переменную
например, когда мне в цикле нужно записать что-то типа (-1)^n
я беру переменную d и присваиваю ей 1, а потом в цикле просто записываю d:=d*(-1)
а ну и получается что с каждым выполнением цикла степень D возрастает