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
next
End Sub
End Module