Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Type a number:")
Dim intInput as integer = Console.Readline
Dim inta as integer
Dim gen as new random
For count = intInput to 1 Step -2
inta += 7
Console.Writeline(inta)
Next
End Sub
End Module