import Control.Applicative
import Data.List
import Numeric

delMax = \x -> delete (maximum x) x
delMin = \x -> delete (minimum x) x
average xs = fromIntegral(sum xs) / n
	where n = fromIntegral $ length xs

main = do
	s <-  delMin . delMax . map (read::String->Int) . words <$> getLine
	
	putStrLn $ showFFloat (Just 2) (average s) ""