Как обратиться с помощью функции (Паскаль)

[Amfetamin]

program project1;
  var x, e, fx:real;
procedure fact(z, eps:real; var f:real);
var yi,y0,zi,z0: real;
  begin
y0:=z;
z0:=z-1;
yi:=y0-y0*z0*0.5;
zi:=z0*z0*(z0-3)*0.25;
while abs(y0-yi)>eps do
   begin
    y0:=yi;
    z0:=zi;
    yi:=y0-y0*z0*0.5;
    zi:=z0*z0*(z0-3)*0.25;
    f:=yi;
    writeln(y0:10:5, yi:10:5);
    f:=zi;
    writeln(z0:10:5, zi:10:5);
    readln;
    end;
  end;
begin
  readln(x,e);
  fact(x, e, fx);
  fact(fx+x, e, fx);
  fact(fx+x, e, fx);
  writeln(x:10:5, fx);
  fx:=sqrt((1+x)/(sqrt(1+x*x))-(1/x));
  readln;
  end.

Функция-



Ряд-



Вроде как неправильно что то здесь.

fact(x, e, fx);
fact(fx+x, e, fx);
fact(fx+x, e, fx);

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

[Zis67]

Неуверен, но возможно это поможет:
Script: OleVariant;
x:=Script.Eval(y);
Гуглите)

[Stilet]

возможно это поможет

Нет, не поможет )