implicit none
integer :: n10,n2,n,x
integer :: i,j,k,ans
read *,n10
read *,n2
read *,n
read *,x
x = x / 50

ans = 0
do i = 0, n10
   do j = 0, n2
      do k = 0, n
         if (10*i + 2*j + k == x) then
            ans = ans + 1
         endif
      enddo
   enddo
enddo

print '(i0)',ans
end