[Code] Giải phương trình bậc 2

$a=0
While $a=0
 $a=InputBox("Nhập","a=",""," M")
WEnd
$b=InputBox("Nhập","b=",""," M")
$c=InputBox("Nhập","c=",""," M")
$d=$b*$b-4*$a*$c
If $d<0 Then MsgBox(0,"Thông báo","Phương trình vô nghiệm") EndIf
If $d=0 Then MsgBox(0,"Phương trình có nghiệm kép x=",-$b/(2*$a)) EndIf
$x1=(-$b+Sqrt($d))/(2*$a)
$x2=(-$b-Sqrt($d))/(2*$a)
If $d>0 Then
 MsgBox(0,"x1=",$x1)
 MsgBox(0,"x2=",$x2)
 EndIf