Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
readln(a,b,c);
If a=0 then
   If b=0 then
       If c=0 then
Writeln('Phuong trinh co vo so nghiem')
       Else
Writeln('Phuong trinh vo nghiem')
   Else
Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2)
Else
Begin
d:=b*b-4*a*c;
If d=0 then
Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a):4:2)
Else
If d<0 then
Writeln('Phuong trinh vo nghiem')
Else
Begin
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
Write('Phuong trinh co hai nghiem: ‘);
Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2);
End;
End;
Readln;
End.

uses crt;
var a,b,c,tam:integer;
x,x1,x2:real;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
if a=0 then if b=0 then if c=0 then write('Phuong trinh co vo so nghiem.') 
else write('Phuong trinh vo nghiem.')   
else write('Phuong trinh co 1 nghiem x=',-c/b)  
else 
begin
tam:=b*b-4*c*a;
if tam=0 then write('Phuong trinh co nghiem kep: x =' ,-b/(2*a)) 
else if tam<0 then write('Phuong trinh vo nghiem.')                   
else                                                               
begin
x1:=(-b-sqrt(tam))/(2*a);
x2:=(-b+sqrt(tam))/(2*a);
write('Phuong trinh co 2 nghiem la x1 = ',x1, ' ; x2 = ',x2); 
end;
end;
readln
end.