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

Begin
 Write('x (>0) = ');
 Readln(x);
 Write('n = ');
 Readln(n);
 a:=(x-1);
 S:=a;
 for k:=2 to n do
  begin
   a:=-a*(x-1)*(k-1)/k;
   S:=S+a;
  end;
 Writeln('Result: ',S:0:5);
 Writeln('Accurate value: ',Ln(x):0:5);
 Readln
End.