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"

    for i = 0 to 9

    console.WriteLine(n(i) & " - " & m(i))

next

    End Sub

End Module