import Text.Printf import Data.List main = do [_,s2,s3,s4,s5,_] <- sort . map read . words <$> getLine :: IO [Double] printf "%.2f" ((s2 + s3 + s4 + s5) / 4)