[Математика] Скрипт для решения квадратных уравнений

MsgBox(0,"Квадратное уравнение", "Уравнение имеет вид : ax^2+bx+c=0(ax^2 - это x в квадратной степени)")
$a = InputBox("Коэффициент A", "Введите коэффициент а в уравнении ax^2+bx+c=0 , Если в уравнении нет такого коэффициента, имея вид (x^2+bx+c) оставьте поле пустым и продолжите")
$b = InputBox("Коэффициент B", "Введите коэффициент b в уравнении ax^2+bx+c=0 , Если в уравнении нет такого коэффициента, имея вид (ax^2+x+c) оставьте поле пустым и продолжите")
$c = InputBox("Коэффициент C", "Введите коэффициент c в уравнении ax^2+bx+c=0 , Если в уравнении нет такого коэффициента, оставьте поле пустым и продолжите")
If $a = 0 Then
   $a = 1
EndIf
If $b = 0 Then
   $b = 1
EndIf
$b1 = Abs($b)
$D1 = ($b1 ^ 2) - 4 * $a * $c
If $D1 = 0 Then
   $s = -$b / (2 * $a)
   MsgBox(0, "X", "Дискриминант оказался нулевым, следовательно в решении оказался только 1 корень - X = " & $s)
   Exit
ElseIf $D1 < 0 Then
   MsgBox(0, "X", "Дискриминант оказался меньше чем 0 (нуль), следовательно решения нет!")
   Exit
EndIf
$D = Sqrt($D1)
$x1 = (-$b - $D) / (2 * $a)
$x2 = (-$b + $D) / (2 * $a)
MsgBox(0, "x1", "первый искомый элемент - x1 = " & $x1)
MsgBox(0, "x2", "второй искомый элемент - x2 = " & $x2)

$b1 = Abs($b)