main :: IO ()
main = interact $ show . solve . map (read :: String -> Int). words


solve :: [Int] -> Int
solve [x]
    | x `mod` 2 == 0 = x `div` 2
    | otherwise      = (x + 1) `div` 2