import Data.List

main = do
 getLine
 xs <- map head . group . sort . map read . words <$> getLine
 print $ head $ (++[0]) $ sort $ zipWith (-) (tail xs) xs