var a,b,c:real;
    x,x1,x2:real;
begin
writeln('Vitejte v programu na vypocet korenu kvadratickych rovnic.');
writeln('----------------------------------------------------------');
writeln('-----Program ukoncite zadanim 3 nulovych hodnot-----------');
writeln('zadej hodnoty:');
read(a,b,c);
while (a<>0) or (b<>0) or (c<>0) do
    begin
       if a=0 then begin
               x:=-1*c/b;
               writeln('vysledkem linearni rovnice je:',x);
               end
            else
            begin
            if b*b=4*a*c then begin
                              x:=-b/(2*a);
                              writeln('vysledkem kvadr rovnice je: x=',x:5:2);
                              end
                    else
                       if b*b>4*a*c then begin
                              x1:=(-b-sqrt(b*b-4*a*c))/(2*a);
                              x2:=(-b+sqrt(b*b-4*a*c))/(2*a);
                    writeln('vysledkem kvadr rovnice je: x1=',x1:5:2,'x2=',x2:5:2);
                              end
                              else
                              begin
                              x1:=sqrt(abs(b*b-4*a*c));
                              x2:=sqrt(abs(b*b-4*a*c));
       writeln('vysledkem kvadr rovnice je: x1=',(-b/(2*a)):5:2,'-i',(x1/(2*a)):2:1,
                               'x2=',(-b/(2*a)):5:2,'+i',(x2/(2*a)):2:1);

                             end;
       end;
    writeln('zadej hodnoty:');
    read(a,b,c);
    end;

end.