Рекурсивные алгоритмы

[ksesh]

Помогите, пожалуйста, решить: Вычислить функцию с заданной точностью, используя рекурсивный алгоритм:

[Аватар]

var x,y,delta: Double;

function CalcLn(n: Integer; xn: Double): Double;
var xt: Double;
begin
  xt:=xn*x*(n-1)/n;
  if xt<delta then Result:=xt else Result:=xt+CalcLn(n+1,xt);
end;

...

  x:=0.7;
  delta:=0.00001;
  y:=-x-CalcLn(2,x);