Imports System
Public Module Module1
Public Sub Main()
Dim x as integer
Console.WriteLine("Please write a number")
x = console.ReadLine()
for I = 0 to x-1
console.WriteLine((" ascending " & i+1) & ( " decending " & x-i ))
next
End Sub
End Module