Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, c, D as Double

        console.writeline("Valeur de a ?")

        a = console.readline()

        console.writeline("Valeur de b ?")

        b = console.readline()

        console.writeline("Valeur de c ?")

        c = console.readline()

        If a <> 0 and b <> 0 Then

            D = b^2-4*a*c

            If D > 0 Then

                Dim x1, x2 as Double

                x1 = (-b+Math.Sqrt(D))/(2*a)

                x2 = (-b-Math.Sqrt(D))/(2*a)

                console.writeline(x1 & " et " & x2 & " sont les solutions de l'équation")

            ElseIf D = 0 Then

                Dim x as Double

                x = (-b/(2*a))

                console.writeline(x & " est solution de l'équation")

            Else

                console.writeline("Solution complexe")

            End If

        End If

    End Sub

End Module