CONST
 Eps=0.0001;
VAR
 Xbeg,Xfin,DX,SUM,X:REAL;
 N:WORD;
 Nx,i:INTEGER;


PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD);
 VAR
   a:REAL;
 Begin
  a:=Xs;
  S:=Xs;
  Ns:=1;
  Repeat
   Inc(Ns);
   a:=a*Xs*(Ns-1)/Ns;
   S:=S+a;
  Until Abs(a)<Eps;
  S:=-S;
 End;

BEGIN
 Xbeg:=-0.5;
 Xfin:=0.5;
 DX:=0.1;
 WriteLn('         Results of calculation:');
 WriteLn('    X          SUM          N      Ln(1-X)');
 WriteLn;
 Nx:=ROUND((Xfin-Xbeg)/DX);
 X:=Xbeg;
 For i:=0 to Nx do
  begin
   X:=Xbeg+DX*i;
   SUMS(X,SUM,N);
   WriteLn(X:8:5,'     ',SUM:8:5,'     ',N:3,'     ',Ln(1-X):8:5);
  end;
 ReadLn;
END.