Module Module1

    Sub Main()
        'let'
        Dim A As Long = Console.ReadLine()
        Dim B As Long = Console.ReadLine()
        Dim C As Long = Console.ReadLine()
        Dim X As Long = Console.ReadLine()

        'var'
        Dim cnt As Long = 0

        For i As Long = 0 To A
            For j As Long = 0 To B
                For k As Long = 0 To C
                    If X = 500 * i + 100 * j + 50 * k Then
                        cnt += 1
                    End If
                Next
            Next
        Next

        Console.WriteLine(cnt)

    End Sub

End Module