{ Work1.dpr
  Иванцов А.А., mm-156
  08/02/11
  Квадратное уравнение с комплексными числами.}

Program Equation;

uses
  Complex;

  function Dis(a,b,c):integer; //вычисление дискреминанта квадратного уравнения
  var
  begin
    q:=Multi(b,b:tcomplex);
    p:=Multi(a,c:tcomplex);
    p:=4*p;
    Dis:=Dif(q,p);
  end;

  procedure Root(var RD:tcomplex; D:integer); //вычисления корня из дискреминанта
  begin
    RD.Re:=sqrt(D.Re+D.Im*D.Im);
    RD.Im:=D.Im/2/RD.Re;
  end;

  procedure Answers(var z1,z2:tcomplex; a,b,RD:tcomplex); //вычислния корней уравнений
  begin
    sum1:=Sum(-b,RD);
    z1:=sum1/2/a;
    sum2:=Sum(-b,-RD);
    z2:=sum2/2/a;
  end;

  procedure OutPut(z1,z2:tcomplex); //вывод данных
  begin
    writeln('Korny kvadratnogo yravneniya:');
    writeln('x1=');
    OutComplex(z1);
    writeln('x2=');
    OutComplex(z2);
  end;

var
  d:itneger;
  a,b,c,D,RD,z1,z2,:tcomplex;

begin
  InPutComplex(a);
  InPutComplex(b);
  InPutComplex(c);
  D:=Dis(a,b,c);
  Root(RD);
  Answers(z1,z2,a,b,RD);
  OutPut(z1,z2);
end;