main :: IO ()
main = interact $ solve . map (read :: String -> Integer) . words

solve :: [Integer] -> String
solve (a:b:c:d:e:f:g:_) = if check a b c d e f g then "YES" else "NO"

check :: Integer -> Integer -> Integer -> Integer -> Integer -> Integer -> Integer -> Bool
check a b c d e f g = elem g $ (+) <$> ((+) <$> ((+) <$> ((+) <$> ((+) <$> (map (*500) [0..a]) <*> (map (*100) [0..b])) <*> (map (*50) [0..c])) <*> (map (*10) [0..d])) <*> (map (*5) [0..e])) <*> (map (*1) [0..f])