Imports System

Public Module Module1

    Public Sub Main()

        dim numbers() as string = {"tahi", "rua","toru","wha","rima","ono","whitu","waru","iwa","takau"}

        Console.WriteLine("Enter a number")

        dim q as integer

        q=Console.ReadLine()

    End Sub

End Module