function Fact(n: integer): longint;
begin
  Result := n <= 1 ? 1 : n * Fact(n - 1);
end;

begin
  var z, eps: real;
  var w := 0.0;
  var k := 1;

  repeat
    z := ReadLnReal('Введите число Z (|Z| > 1):');
    if Abs(z) <= 1 then WriteLn('Упс...ошибочка... :(');
  until Abs(z) > 1;

  repeat
    eps := ReadLnReal('Введите точность:');
    if eps <= 0 then WriteLn('Упс...ошибочка... :(');
  until eps > 0;

  while ((Power(z, k) / Fact(2 * k + 1)) + (1 / Power(z, 2 * k))) >= Eps do
  begin
    w += ((Power(z, k) / Fact(2 * k + 1)) + (1 / Power(z, 2 * k)));
    k += 1;
  end;

  WriteLn('Ответ: ', w);
end.