open System

[<EntryPoint>]
let main argv =
  let a = Console.ReadLine() |> int in
  let b = Console.ReadLine() |> int in
  let c = Console.ReadLine() |> int in
  let x = Console.ReadLine() |> int in
  
  [ for i in [0..a] do
      for j in [0..b] do
        for k in [0..c] do
          yield i * 500 + j * 100 + k * 50 ]
  |> List.sumBy (fun y -> if y = x then 1 else 0)
  |> Console.WriteLine
  0
