Const
 Eps=0.0001;
 Xbeg=-0.9;
 Xfin=0.9;
 DX=0.1;
VAR
 N,i,k:Word;
 S,X,a:Real;

BEGIN
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   k:=0;
   a:=X;
   S:=a;
   Repeat
    Inc(k);
    a:=a*X*X*(2*k-1)/(2*k+1);
    S:=S+a;
   Until Abs(a)<Eps;
   S:=S*2;
   WriteLn(X:6:3,S:12:6,k:12,Ln((1+X)/(1-X)):24:6);
  end;
 Readln;
END.

Const
 Eps=0.0001;
Var
 k:Word;
 S,x,a:Real;

BEGIN
 Repeat
  Write('x= ');
  Readln(x);
  If (x<=-1) or (x>=1) then Writeln('Value out of range!');
 Until (x>-1) and (x<1);
 WriteLn('   x        Result      Number of items     Accurate value');
 k:=0;
 a:=x;
 S:=a;
 Repeat
  Inc(k);
  a:=a*x*x*(2*k-1)/(2*k+1);
  S:=S+a;
 Until Abs(a)<Eps;
 S:=S*2;
 WriteLn(x:6:3,S:12:6,k:12,Ln((1+x)/(1-x)):24:6);
 Readln;
END.