Imports System

Module Module1

    Sub Main()
        Dim N As Int32 = Int32.Parse(Console.ReadLine())

        If (N Mod 2 = 1) Then
            Console.WriteLine(Math.Floor(N / 2) + 1)
        Else
            Console.WriteLine(Math.Floor(N / 2))
        End If
    End Sub

End Module
