import Control.Applicative
import Data.List
import Data.Fixed
main = do
  xs <- (map read . words) <$> getLine
  putStrLn . show . f $ sort xs
f xs = (fromIntegral (sum (tail (init xs)))) / (fromIntegral ((length xs)-2)) :: Fixed E2