import Data.Bool

main = do
 [n,a] <- map read . words <$> getLine
 xs <- map read . words <$> getLine
 let (q,r) = divMod (sum xs) n
 putStrLn $ bool "NO" "YES" (q == a && r == 0)