Imports System

' ECHO POR FABIO

'FECHA 02-03-23

Public Module Module1

    Public Sub Main()

        Console.WriteLine("INGRESE EDAD")

        DIM EDAD AS INTEGER

        EDAD = CONSOLE.ReadLine()

        IF EDAD <=7 THEN

            CONSOLE.WriteLine("FUERA DE RANGO")

        END IF

        IF EDAD >7 AND EDAD <9 THEN 

            CONSOLE.WriteLine("INFANTIL A")

        END IF

        IF EDAD >9 AND EDAD <11 THEN

            CONSOLE.WriteLine("INFANTIL B")

        END IF

        IF EDAD >11 AND EDAD <13 THEN

            CONSOLE.WriteLine("INFANTO JUVENIL")

        END IF

        IF EDAD >14 AND EDAD <17 THEN

            CONSOLE.WriteLine("JUVENIL")

        END IF

        IF EDAD >=17 THEN

            CONSOLE.WriteLine("CATEGORA LIBRE")

        END IF

    End Sub

End Module