Imports System

Public Module Module1

    dim numero1 as integer

    dim numero2 as integer

    dim numero3 as integer

    Public Sub Main()

        Console.WriteLine("Inserte un numero del 1 al 7: ")

        numero1=console.ReadLine()

        if numero1 = 1 then

            console.WriteLine ("es lunes")

        End If

        if numero1 = 2 then

            console.WriteLine (" es martes")

        End If

        if numero1 = 3 then

            console.WriteLine (" es miercoles")

        End if

        if numero1 = 4 then

            console.WriteLine (" es jueves")

        End if

        if numero1 = 5 then

            console.WriteLine (" es viernes")

        End if

        if numero1 = 6 then

            console.WriteLine (" es sabado")

        End if

        if numero1 = 7 then

            console.WriteLine ("es domingo")

        End if

    End Sub

End Module