main :: IO ()
main = do
  [n, a] <- fmap (map read . words) getLine :: IO [Double]
  is <- fmap (map read . words) getLine :: IO [Double]
  putStrLn $ if avg is n == a
     then "YES"
     else "NO"
    where avg xs n = sum xs / n