Imports System

Public Module Module1

    Public Sub Main()

        dim a as integer 

​

          For x As Integer = 20 To 2 Step -2

​

           Console.WriteLine( x*x )

​

            Next

    End Sub

End Module