Program BTT;
Uses crt;
Var a,b,c,d,e,f: real;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If a=0 then
                If b=0 then
                        If c=0 then Writeln('VO SO NGHIEM')
                        Else Writeln('VO NGHIEM')
                        Else Writeln('NGHIEM x = ',-c/b:0:2)
        Else
        Begin
                d:=sqr(b)-4*a*c;
                If d<0 then Write('VO NGHIEM');
                If d=0 then Write('NGHIEM x = ',-b/(2*a):0:2)
                Else
                Begin
                        e:=(-b-sqrt(d))/(2*a);
                        f:=(-b+sqrt(d))/(2*a);
                        Writeln('Hai nghiem: ');
                        Writeln('X1 = ',e:0:2);
                        Write('X2 = ',f:0:2);
                End;
        End;
        Readln;
End.