[Konrad]

Ладно, чтоб ты не плодил темы, вот

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,sr,e:real;
j,a:integer;
begin
  e:=strtofloat(edit1.Text);
  j:=1;
  a:=-1;
  sr:=0;
  repeat
   a:=a*(-1);
   s:=a/(j*(j+1)*(j+2));
   j:=j+1;
   sr:=sr+s;
  until abs(s)<e;
  edit2.Text:=floattostr(sr);
end;