Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter a number")

        Dim x as decimal

        x = Console.Readline()

            Console.WriteLine(x)

        For i = 1 To x

        x = x-1

        Console.WriteLine(x)

        next

    End Sub

End Module