Составить в basic решение квадратного уравнения с переменными 2,7,-4

Dim a As Double, b As Double, c As Double, d As Double

Input a, b, c

d = b ^ 2 - 4 * a * c

If d < 0 Then

Print "Нет действительных корней"

Else

If d = 0 Then

Print - b / (2 * a)

Else

d = Sqr (d)

Print (-b - d) / (2 * a), (-b + d) / (2 * a)

End If

End If