Module QuadraticEquation

    Sub Main()
        Dim a, b, c, discriminant, x1 As Double
        Dim x2 As Double
        Console.Write("Enter the value of a: ")
        a = Double.Parse(Console.ReadLine())
        Console.Write("Enter the value of b: ")
        b = Double.Parse(Console.ReadLine())
        Console.Write("Enter the value of c: ")
        c = Double.Parse(Console.ReadLine())
        discriminant=b*b-4.0*a*c
        If discriminant<0 Then
            discriminant=-discriminant
            Console.WriteLine("Imaginary roots")
        Else
            Console.WriteLine("Real roots")
        End If
        If a <> 0 Then
            x1=(-b+Math.Sqrt(discriminant))/2.0/a
            x2=(-b-Math.Sqrt(discriminant))/2.0/a
        Else
            x1=0
            x2=0
            Console.WriteLine("It is not a quadratic equation")
        End If
        Console.WriteLine("Value of discriminant: " & discriminant)
        Console.WriteLine("Value of x1: " & x1)
        Console.WriteLine("Value of x2: " & x2)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module