import Data.List
import Text.Printf

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

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