Imports System
Public Class Test
Public Shared Sub Main()
Dim ai As Integer = 0
For ai = 24 To 3 Step -1
Console.WriteLine(ai & " ")
ai /= 2
ai += 1
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gYWkgQXMgSW50ZWdlciA9IDAKCQkKCQlGb3IgYWkgPSAyNCBUbyAzIFN0ZXAgLTEKCQkJQ29uc29sZS5Xcml0ZUxpbmUoYWkgJiAiICIpCQoJCQlhaSAvPSAyCgkJCWFpICs9IDEKCQlOZXh0CgkKCUVuZCBTdWIKRW5kIENsYXNz