import Control.Applicative ((<$>)) import Data.List (genericLength, sort) import Text.Printf (printf) main :: IO () main = do ss <- init . tail . sort . fmap read . words <$> getLine :: IO [Double] let ans = sum ss / genericLength ss printf "%.2f\n" ans