Imports System

Public Module Module1

    Public Sub Main()

        Dim i as integer

        Dim nIm as decimal

        Dim sum as decimal

        nIm = Console.ReadLine()

        For i = 1 to nIm

        sum = nIm

        if (sum = nIm) then

            nIm = nIm - 1

        End If

        Console.Write(sum & ", ")

    Next

    End Sub

End Module