Imports System

'REALIZADO POR: Luis Carlo Pivaral Perez

Public Module Module1

    Public Sub Main()

        DIM NUMERO AS INTEGER

            Console.WriteLine("INGRESE UN NUMERO: ")

            NUMERO = CONSOLE.Readline()

        IF NUMERO <18

            Console.WriteLine("EDAD DE NIÑO O ADOLESCENTE")

        END IF

        IF NUMERO >18

            Console.WriteLine("EDAD DE UN ADULTO")

        END IF

    End Sub

End Module

​