main :: IO ()
main = interact $ solve . map read . words

solve :: [Int] -> String
solve (n:a:xs)
    | b == c    = "YES"
    | otherwise = "NO"
    where
        b = fromIntegral (sum xs) / fromIntegral n
        c = fromIntegral a