main :: IO ()
main = do
  n <- read <$> getLine
  print $ solve n

solve :: Int -> Int
solve n = ceiling (fromIntegral n / 2)