[AND_REY]

Код:

Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
Var
 j, R: Real;
begin
 R:= Power(-1,(j+1))/(j*(j+1)*(j+2));
end;