[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.