Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        'to declare empty array we have to use -1

        dim a(5) as integer

        'Console.WriteLine("size of the array: "&a.Length)

        Console.WriteLine("Enter the numbers into an array:")

        for i as integer = 0 to a.Length

        a(i)= convert.ToInt16(console.ReadLine())

        Console.WriteLine(" "&a(i))

        next

    End Sub

End Module