Вычислить сумму

begin
  var z := Cplx(ReadReal('Введите вещественную и мнимую часть числа через пробел:'), ReadLnReal);
  var eps := ReadLnReal('Введите точность eps =');
  var k := 1; var d := 1.0; var z2k := z*z; var r := z2k; var w := r;
  repeat
    k += 1;
    d /= k;
    z2k *= z*z;
    r *= (2*k - 1) * d * z2k;
  until r.Magnitude < eps;
  WriteLn('w = ' + w.Real.ToString + '+i' + w.Imaginary.ToString);
end.

uses ucomplex;
var
  a, z, w: complex;
  e: real;
  k: integer;
begin
  write('Re(z) = '); readln(z.re);
  write('Im(z) = '); readln(z.im);
  repeat
    write('  eps = '); readln(e);
    if e <= 0 then writeln('eps may be > 0, reenter.')
  until e > 0;
  writeln('z = ', cstr(z)); writeln;
  a := z / 6;
  k := 1;
  w := a;
  while cmod(a) > e do
  begin
    a := (a * z) / (4*(k + 0.5));
    w := w + a;
    inc(k)
  end;
  writeln('w = ', cstr(w));
  readln
end.