Module Module1

    Sub Main()
        Dim input As String
        Dim page As Integer
        Dim ans As Integer
        input = Console.ReadLine()
        page = CInt(input)

        ans = CInt(Math.Ceiling(page / 2))

        Console.WriteLine(ans.ToString)

        'Console.ReadKey()


    End Sub


End Module
