main :: IO ()
main = do
     t <- getLine
     let tt = map read $ words t :: [Int]
     let s = foldr (+) 0 tt
     let q = quot s 2 
     let r = rem s 2
     if r == 0 then print q else print $ succ q
 
