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