import Data.List

half = flip div 2

readInt :: String -> Int
readInt = read

main = do
    s <- map readInt.words<$>getContents
    print $ solve s

solve :: [Int] -> Int
solve (n:s) = sum s - half(maximum s)