program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Unit1
  { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

procedure SolveEquation(A, B, C : TComplex; var X1, X2 : TComplex);
var D : TComplex;
begin
   D:=sqrtComplex(subComplex(multComplex(B, B), multComplexByReal(multComplex(A, C), 4)));
   X1:=divideComplex(sumComplex(multComplexByReal(B, -1), D), multComplexByReal(A, 2));
   X2:=divideComplex(subComplex(multComplexByReal(B, -1), D), multComplexByReal(A, 2));
end;

procedure outputEquation(A, B, C : TComplex);
begin
   outputComplex(A);
   write(' * X^2 + ');
   outputComplex(B);
   write(' * X + ');
   outputComplex(C);
   writeln();
end;

var A, B, C, X1, X2 : TComplex;

begin
input(A);
input(B);
input(C);
SolveEquation(A, B, C, X1, X2);
outputEquation(A, B, C);
outputComplex(X1);
writeln();
outputComplex(X2);
readln();
end.