import Data.List
import Text.Printf

main :: IO ()
main = do
    d <- map read . words <$> getLine
    let s = f d
        t = s / 4.0
    printf ".2f"

f :: [Int] -> Double
f d = fromIntegral t
    where
        t = sum $ init $ tail $ sort d