Var
 X,X_nach,X_kon,DeltaX,eps,S,A:real;
 N,q,i:Integer;

Begin
 repeat
  Write(' X_nach = ');
  Readln(X_nach);
  if (X_nach<=0) then writeln(' Incorrect value!');
 until (X_nach>0);
 repeat
  Write(' X_kon = ');
  Readln(X_kon);
  if (X_kon<=X_nach) then writeln(' Incorrect value!');
 until (X_kon>X_nach);
 repeat
  Write(' DeltaX = ');
  Readln(DeltaX);
  if (DeltaX<=0) or (DeltaX>(X_kon-X_nach)) then writeln(' Incorrect value!');
 until (DeltaX>0) and (DeltaX<=(X_kon-X_nach));
 Write(' Eps = ');
 Readln(eps);
 Writeln;
 N:=ROUND((X_kon-X_nach)/DeltaX);
 Writeln('  X      S(X)      Ln(X)');
 for i:=0 to N do
  begin
   X:=X_nach+DeltaX*i;
   A:=(X-1)/(X+1)*2;
   q:=1;
   S:=A;
   Repeat
    A:=A*Sqr(x-1)/Sqr(x+1)*q/(q+2);
    S:=S+A;
    q:=q+2;
   Until Abs(A)<Eps;
   Writeln(X:5:2,S:10:5,Ln(X):10:5);
  end;
 Readln;
End.