Составить в 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