Написать функцию для формулы

function NF(n:integer):int64;
var
  i:integer;
begin
  result:=1;
  For i:=2 to n do
    result:=result*i;
end;
function Power(a: real; n: integer): real;
var
  i:integer;
begin
  Result :=1;
  for i:=1 to n do
    Result := Result*a;
end;
function NE (Xa,Xb,E:real):integer;
var
  Rn, dx : real;
  n: integer;
begin
  n:=0;
  dx:=Xb-Xa;
  Rn:=10;
  while Rn > E do
    begin
      n:=n+1;
      Rn:=10*Power (dx,(n+1))/NF(n+1);
      end;
    Result :=n;
end;
var
  n: integer;
  Xa,Xb,E: real;
  a: real;
begin
(* Проверка функции вычисления факториала NF(n)
  writeln('Проверка n!');
  writeln('введите n не более 20');
  readln(n);
  writeln('n!=',NF(n));
*)
(*Проверка возведения в целую степень
  writeln('Проверка возведения в целую степень');
  writeln('введите а основание степени');
  readln(a);
  writeln('введите целую степень n');
  readln(n);
  writeln('а в степени n = ', Power (a, n));
  *)
  (*Проверка вычисления n по заданной точности Е*)
  writeln('Проверка вычисления n по заданной точности Е');
  writeln('введите Xa');
  readln(Xa);
  writeln('введите Xb');
  readln(Xb);
  writeln('введите точность E');
  readln(E);
  writeln('n= ',NE(Xa,Xb,E));
end.

function ch(x,e:real; n:integer):real;
var s,si:real;
    i:integer;
begin
  s:=1;si:=1;i:=0;
  repeat
    i:=i+1;
    si:=si*x*x/((2*i-1)*(2*i));
    s:=s+si;
  until (abs(si)<e)or(i=n);
  ch:=s;
end;
 
function sh(x,e:real; n:integer):real;
var s,si:real;
   i:integer;
begin
  si:=x;s:=x;i:=0;
  repeat
    inc(i);
    si:=si*x*x/(2*i*(2*i+1));
    s:=s+si;
  until (abs(si)<e)or(i=n);
  sh:=s;
end;
 
var t,e,a,b:real;
    n:integer;
begin
  write('t = ');readln(t);
  write('n = ');readln(n); //количество слагаемых
  write('e = ');readln(e); //точность
  write('a = ');readln(a);
  write('b = ');readln(b);
  writeln('F(',t:0:2,') = ',a*sh(t,e,n)+b*ch(t,e,n):0:5);
  readln
end.