main = do
  [_, a] <- map read . words <$> getLine
  xs <- map read . words <$> getLine
  let xt = fromIntegral (sum xs) / fromIntegral (length xs)
  putStrLn $ if xt == a then "YES" else "NO"