Imports System

   Class Mots
      Overloads Shared Sub Main( ByVal args() As String )
        
         Try 
            Dim un_mot As String
            Dim liste_de_mots( 100 ) As String

            Dim nbmots As Integer = Console.ReadLine()

            For i As Integer = 0 To nbmots
              un_mot = Console.ReadLine()
              liste_de_mots( i ) = un_mot
            Next

            For i As Integer = nbmots-1 To 0 Step -1
              Console.WriteLine( liste_de_mots( i ) )
            Next

         Catch ex As Exception
            Console.WriteLine( ex.Message ) 
      End Try

      End Sub
   End Class