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 Module