Задача на Паскале аbс

[Bugavix]

Задача на Паскале аbс

Помогите решить пожалуйста.

 

[Vladimir_S]

Помогите решить пожалуйста.

Const
 Eps=0.0001;

Var
 S,a,x:Real;
 k:Integer;

Begin
 Write('x (-1<x<=1) = ');
 Readln(x);
 a:=x;
 S:=a;
 k:=1;
 Repeat
  Inc(k);
  a:=-a*x*(k-1)/k;
  S:=S+a;
 Until Abs(a)<Eps;
 Writeln('Result: ',S:0:5);
 Writeln('Accurate value: ',Ln(x+1):0:5);
 End.