Imports System

   Class Carres
      Overloads Shared Sub Main(ByVal args() As String)
        
         Try 
            Dim x As Integer = Val(Console.ReadLine())
            Dim y As Integer = Val(Console.ReadLine())

            If x > y Then
               Dim z As Integer
               z = x
               x = y
               y = z
            End If

            Dim n As Integer
            For n = x To y
               Console.WriteLine(n * n)
            Next 

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

      End Sub
   End Class