Imports System
Public Module Module1
Public Sub Main()
dim n(9) as integer
dim m(9) as string
dim i as integer
for i = 0 to 9
n(i) = i + 1
next
m(0) = "tahi"
m(1) = "rua"
m(2) = "toru"
m(3) = "whā"
m(4) = "rima"
m(5) = "ono"
m(6) = "whitu"
m(7) = "waru"
m(8) = "iwa"
m(9) = "tekau"
console.WriteLine(n(i) & " - " & m(i))
End Sub
End Module