Вычислить, используя процедуру

var
  n, i, j: integer;
  z, chisl, znam, x, y: real;
 
procedure power(x: real; n: integer; var y: real);
begin
  y := Exp(n * Ln(Abs(x))) * (1 - 2 * Ord(x < 0));
end;
 
procedure fact(n: integer; var f: real);
var
  i: integer;
begin
  f := 1;
  for i := 2 to n do
    f := f * i;
end;
 
begin
  y := 1;
  readln(n);
  readln(x);
  i := 2;
  j := 2;
  //y = 1 + x^2 / 2! – x^4 / 3! + x^6 /4! - ... 
  while i <= n do
  begin
    power(x, i, chisl);
    inc(i);
    fact(j, znam);
    if odd(j) then
      znam := -znam;
    inc(j);
    z := chisl / znam;
    y := y + z;
    writeln(y);
  end;
end.

procedure power(x: real; n: integer; var y: real);
begin
  y := Exp(n * Ln(x));
end;