program kvadr;
uses
  SysUtils;

var a,b,c,discr,x1,x2 : real;
procedure deg;
begin
  writeln('Degenerovan  rovnice');
end;
procedure linear;
begin
  writeln ('Jednoduchy koren ',-c/b:8:3);
end;
procedure  dvoj;
begin
  writeln ('Koreny jsou ',a/b:8:3,' a ',0);
end;
procedure realne;
begin
  discr := sqrt(discr);
  x1 := (-b+discr)/(2*a);
  x2 := (-b-discr)/(2*a);
  writeln('Koreny jsou ',x1:8:3,' a ',x2:8:3)
end;
procedure komplexni;
begin
  x1 := -b/(2*a);
  x2 := sqrt(-discr)/(2*a);
  writeln('Koreny jsou komplexn¡');
  writeln(' X1 = ',x1:6:3,'+i*',x2:6:3);
  writeln(' X2 = ',x1:6:3,'-i*',x2:6:3)
end;

begin
  write('zadejte a ');
  readln(a);
  write('zadejte b ');
  readln(b);
  write('zadejte c ');
  readln(c);
  writeln;

  if (a=0) and (b=0) then
    deg
  else
    if a=0 then
      linear
    else
      if c=0 then
        dvoj
      else
      begin
        discr := sqr(b)-4*a*c;
        if discr >= 0 then
          realne
        else
          komplexni;
      end;
  readln;
end.