Imports System

Public Module Module1

    Public Sub Main()

        Dim nIn as decimal = Console.ReadLine()

        For i = 1 to nIn

        Console.WriteLine(i)

    Next

    End Sub

End Module