%u041A%u043E%u043C%u043F%u043B%u0435%u043A%u0441%u043D%u044B%u0435 %u0447%u0438%u0441%u043B%u0430

type
  Cmplex = record
    Re     : extended;
    Im     : extended;
  end;
  Complex = class
   private

   public
    Function CAdd(const A,B:Cmplex):Cmplex; { комплексное сложение }
    Function CSub(const A,B:Cmplex):Cmplex; { комплексное вычитание }
    Function CMul(const A,B:Cmplex):Cmplex; { комплексное умножение }
    Function CDiv(const A,B:Cmplex):Cmplex; { комплексное деление }
    Function CNeg(const A:Cmplex):Cmplex; { отрицание комплексного числа }
    Function C1(const A:Cmplex):Cmplex; { обратное комплексное число }
    Function CCmplx(const A:Cmplex):Cmplex; { сопряженное комплексное число: a-i*b }
    Function ToComplex(R,I:extended):Complex; { преобразование двух реальных чисел в комлексное}
    constructor Create(A:extended;B:extended);
  end;