%u041A%u043E%u043C%u043F%u043B%u0435%u043A%u0441%u043D%u043E%u0435 %u0441%u043B%u043E%u0436%u0435%u043D%u0438%u0435

  Function CAdd(const A,B:Complex):Complex; { комплексное сложение }
  var
    C  : Complex;
  Begin
    C.Re:=A.Re+B.Re;
    C.Im:=A.Im+B.Im;
    Result:=C;
  End;