main = do
  str <- sequence [getLine, getLine, getLine, getLine]
  let [a, b, c, x] = map read str ::[Int]
  print $ sum [ 1 | an <- [0..a], bn <- [0..b], cn <- [0..c], (500*an + 100*bn + 50*cn == x)]