Uses crt;
Var a, b, c, dt: longint;
Begin
Clrscr;
Write('Nhap a = '); readln(a);
Write('Nhap b = '); readln(b);
Write('Nhap c = '); readln(c);
dt:=0;
If ((a = 0) and (b = 0) and (c = 0)) then writeln('Phuong trinh co vo so nghiem');
If ((a = 0) and (b = 0) and (c <> 0) then writeln('Phuong trinh vo nghiem');
If ((a = 0) and (b <> 0)) then writeln('Nghiem cua phuong trinh la: '-c/b:6:2);
If (a <> 0) then
Begin
dt:=b*b-4*a*c;
If dt<0 then writeln('Phuong trinh vo nghiem');
If dt=0 then writeln('Phuong trinh co 2 nghiem kep la: x1 = x2 = ',-b/(2*a):5:2);
If dt>0 then writeln('Phuong trinh co 2 nghiem phan biet: x1 = ',(-b-sqrt(a))/(2*a):4:2,'; x2 = ',(-b-sqrt(dt))/(2*a):4:2);
End;
Readln
End.