let countUp a b c x =
  [
    for l in [|0..a|] do
    for m in [|0..b|] do
    for n in [|0..c|] do
    yield 500*l + 100*m + 50*n
  ]
  |> List.sumBy (fun v -> if v=x then 1 else 0)

let a = stdin.ReadLine() |> int
let b = stdin.ReadLine() |> int
let c = stdin.ReadLine() |> int
let x = stdin.ReadLine() |> int

printfn "%d" <| (countUp a b c x)