program kvadr;
uses
  SysUtils;

var a,b,c,discr : real;
procedure deg;
begin
  writeln('Degenerovan  rovnice');
end;
procedure linear(y,z:real);
begin
  writeln ('Jednoduchy koren ',-z/y:8:3);
end;
procedure  dvoj(x,y:real);
begin
  writeln ('Koreny jsou ',-y/x:8:3,' a ',0);
end;
procedure realne(x,y,d:real);
var
  x1,x2:real;
begin
  d := sqrt(d);
  x1 := (-y+d)/(2*x);
  x2 := (-y-d)/(2*x);
  writeln('Koreny jsou ',x1:8:3,' a ',x2:8:3)
end;
procedure komplexni(x,y,d:real);
var
  x1,x2:real;
begin
  x1 := -y/(2*x);
  x2 := sqrt(-d)/(2*x);
  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(b,c)
    else
      if c=0 then
        dvoj(a,b)
      else
      begin
        discr := sqr(b)-4*a*c;
        if discr >= 0 then
          realne(a,b,discr)
        else
          komplexni(a,b,discr);
      end;
  readln;
end.