FUNCTION Fi(x:REAL;n:INTEGER):REAL;
 VAR
  i:INTEGER;
  a,S:REAL;
 BEGIN
  a:=1;
  S:=1;
  FOR i:=1 TO n DO
   BEGIN
    a:=a*SQR(x)/4/i*(2*i-1)/(2*i+1);
    S:=S+a;
   END;
  Fi:=S*x*SQRT(2/Pi);
 END; {Fi}