Imports System

Public Module Module1

    Public Sub Main()

        Dim n as Integer

        Do

            Console.Writeline("Enter n")

            n = Console.Readline()

            Console.WriteLine(n * 2)

        loop while n = 6

        If n <> 5

                Console.Writeline("Wrong")

            End If

        Else If

                n = 5

            Console.Writeline("Correct")

        End If

    End Sub

End Module