Вывести рекуррентную формулу для вычисления суммы ряда

uses crt;
var x,c:real; i,n:integer;
    y:extended;
 
Function Power(Base: Real; Exponent:integer): Real;
var Tmp: Real;
begin
  Power:=0;
  if Int(Exponent/2)=Exponent/2 then Base:=Abs(Base);
  if Exponent=0 then
    begin
      Power:=1;
      Exit
    end;
  if Base=0 then
    begin
      power:=0;
      exit
    end;
  if Base>0 then
    begin
      Tmp:=Exp((Abs(Exponent))*Ln(Base));
      if Exponent>0 then
        begin
          power:=Tmp;
          exit
        end;
      if Exponent<0 then
        begin
          power:=1/Tmp;
          exit
        end;
    end;
    if Base<0 then
      begin
        Tmp :=Exp((Abs(Exponent))*Ln(Abs(Base)));
        if Exponent>0 then
          begin
            power:=-Tmp;
            exit
          end;
        if Exponent<0 then
          begin
            power:=-1/Tmp;
            exit
          end;
      end;
end;
{====End of power====}
Begin
  ClrScr;
  write ('n= '); readln(n);
  write ('x= '); readln(x);
  y:=1;
  for i:=0 to n do
    begin
      y:=y*i;
      if y=0 then y:=1;
      c:=c+((Power(-1,i))*Power(x,2*i))/y;
    end;
  writeln (c:10:10);
  readln;
end.