Imports System
Module Program
Sub Main()
For K As Integer = 2 To 10 Step 2
Console.WriteLine(K)
Next
End Sub
End Module
SW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBQcm9ncmFtCiAgICBTdWIgTWFpbigpCiAgICAgICAgRm9yIEsgQXMgSW50ZWdlciA9IDIgVG8gMTAgU3RlcCAyCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKEspCiAgICAgICAgTmV4dAoKICAgIEVuZCBTdWIKRW5kIE1vZHVsZQo=