Imports System

Public Module Module1

    Public Sub Main()

        dim indice as integer

        dim nro as integer=0

        dim elementos(10) as integer 

        for indice=1 to 10

        Console.WriteLine(indice+tostring() "Por favor, ingrese un nro")

        nro= integer.parse(console.readlineaa())

        elementos(indice)=nro

    next indice 

        for indice =1 to 10 

    console.writeline("Mostrando posicion:" + indice.ToString() " dato: " + elemetos(indice))

    End Sub

End Module