Imports System

Public Module Module1

    Public Sub Main()

        Q1C

    End Sub

    public sub print(s)

        console.writeline(s)

    end sub

    Public Sub Q1C

        dim x as integer

        x = console.readline()

        for i = x to 0 step -1

        print(i)

    next

    End Sub

​

End Module