import Control.Applicative
import Control.Monad
import Data.List

main = map (read :: String -> Int) . drop 2 . lines <$> getContents >>= print . (\a -> maximum a - minimum a) . sort