С клавиатуры вводятся натуральное число n и вещественное число x. вычислить сумму (-1) ^n * (2x) ^2n / (2n+1) !

Program proga_1;

var x: real; n: integer;

function func (n: integer; x: real) : real; var i: integer; i1, i2, i3: real;

//функция вычисления степени

function power (n: integer; x: real) : real;

var i: integer; res: real;

begin res : = x; for i : = 1 to n - 1 do res : = res * x;

power : = res;

end;

//фукция вычисления факториала

function factorial (x: integer) : integer;

var i, res: integer;

begin for i : = 1 to x do inc (res, i) ;

factorial : = res;

end;

begin

if n mod 2 = 0 then i1 : = 1 else i1 : = - 1; / / определяем число - 1 степени n

i2 : = power (2 * n, 2 * x) ;

i3 : = factorial (2 * n + 1) ;

func : = (i1 * i2) / i3; end;

begin

write ('Введите n: ') ; readln (n) ;

write ('Введите x: ') ; readln (x) ;

writeln ('Сумма равна: ', func (n, x)) ;

end.