Program GIAI_PHUONG_TRINH_BACII;
Uses crt;
Var a,b,c,d,x,x1,x2: real;
Begin
  Clrscr;
  Writeln('GIAI PHUONG TRINH BAC II: ');
  Writeln('-------------------------------------------');
  Write('Nhap he so a='); readln(a);<br />  Write('Nhap he so b='); readln(b);<br />  Write('Nhap he so c='); readln(c);<br />  If a=0 then<br />    If b=0 then<br />      If c=0 then<br />        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)<br />  Else<br />    Begin<br />      D:=b*b-4*a*c;<br />      If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)<br />      Else<br />        If D<0 then Writeln('Phuong trinh vo nghiem')
        Else
           Begin
             x1:=(-b-sqrt(D))/(2*a);
             x2:=(-b+sqrt(D))/(2*a);
             Writeln('Pt co 2 nghiem la x1= ',x1:4:2 ,' va x2=',x2:4:2);
           End;
     End;
Readln
End.