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