main = do
    [x, y, z] <- map read . words <$> getLine
    print $ minimum [x + z, y + z, (x + y + z) `div` 2]