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.