Суммирование рядов

[Diana pretty]

Для заданного положительного E и заданного x вычислить сумму ряда с точностью E. Значение параметра m, входящего в некоторые варианты, вводится с клавиатуры. Суммирование ряда завершается, если модуль очередного слагаемого меньше E. Значение суммы сравнить с соответствующим значением в левой части равенства. Действительные типы объявить extended. Предусмотреть ограничение количества слагаемых ряда для предотвращения "зацикливания" программы.



ln(1-x)=-x-x^2/2- x^3/3- x^4/4- x^5/5-… |x|<1

Плиз помогите кто может, наброски есть, до конца голова не варит, не знаю как.
i:integer
i:=-1;
k:=2;
repeat
x:= x*x;
i:= i-x/k
i:= i+1;
k:= k+1;
if i>1000 then break;
until (abs(i)<1);

[Grag]

Сделаю в лучшем виде, обращайся!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61