Циклы (сумма ряда чисел)

[*cash*]

Посмотрите пожалуйста.
Вот условие задачи:
http://s61.radikal.ru/i174/1104/3a/20f901c6f15d.jpg

Вот какую ошибку выводит: http://s002.radikal.ru/i198/1104/72/809db5bf638e.jpg

Вот текст программы:
program Project1;
uses
SysUtils,math;
var s,e:real;
j:integer;
begin
readln (e);
S:=0; j:=1;
while abs((power((-1),j+1))/(j*(j+1)*(j+2)))>e do
begin
s:=s+((power((-1),j+1))/(j*(j+1)*(j+2)));
inc(j);
end;
write (s:0:5);
readln;
end.

[Mad_Cat]

а зачем вам тут power ? только чтобы -1 в степень возводить! изврат это!

s:=0;i:=1;
sl:=(i*(i+1)*(i+2);
if not odd(i) then sl:=-sl;
while abs(1/sl)>=e do
begin
s:=s+1/sl;
inc(i);
sl:=i*(i+1)*(i+2);
if not odd(i) then sl:=-sl;
end;