Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Introduce tu edad")

        Dim edad As integer = Console.ReadLine()

        Console.Write("Introduzca su sexo (M/F): ")

        Dim sexo As String = Console.ReadLine()

        If edad > 0 and edad < 18 and (sexo = "F" or sexo = "f") then

            Console.WriteLine("Bienvenido")

        elseif edad > 0 and edad < 18 and (sexo = "M" or sexo = "m") then

            Console.WriteLine("Bienvenido")

        else

            Console.WriteLine("No entrada")

        end if

    End Sub

End Module