Module Module1

    Sub Main()

        Dim N As Integer = Console.ReadLine()
        Dim tmp() As String = Split(Console.ReadLine())

        Dim a(N) As String
        Dim buf As String = Space(180)

        Dim c As Integer

        For c = 0 To N - 1
            Mid(buf, (CInt(tmp(c)) - 1) * 3 + 1, 3) = (c + 1).ToString
        Next

        Console.WriteLine(buf)
        'Console.Read()

    End Sub

End Module
