Imports System

Public Module Module1

    Public Sub Main()

        Dim n As Integer = Console.ReadLine()

        Dim Sum As Integer = 0 

        Dim i As Integer = 1 

        while i <= n

            Sum = Sum + 1 

            i = i + 1 

        end while

        Console.WriteLine(Sum)

    End Sub

End Module