VAR 
a,b,c,Delta,x1,x2:real; 
Begin 
Write('Nhap cac he so a,b,c '); Readln(a,b,c); 
If a=0 Then 
Begin 
If b<>0 then Writeln(' Pt co 1 nghiem la x=',-c/b:0:2) <br />Else If c<>0 then Writeln('Pt vo nghiem ') 
Else Writeln('Pt co vo so nghiem '); 
End 
Else Begin 
Delta:=b*b-4*a*c; 
If Delta<0 then Writeln(' Pt vo nghiem') 
Else Delta=0 then Writeln('Pt co nghiem kep x1=x2=',-b/(2*a):0:2 ') 
Else Begin 
x1:=(-b-sqrt(Delta))/(2*a); 
x2:=(-b+sqrt(Delta))/(2*a); 
Writeln('Pt co 2 nghiem la x1= ',x1:0:2 ,' va x2=',x2:0:2); 
End; 
End; 
readln; 
End. 

Mình trình bày chi tiết ở trong hình!