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.
