      PROGRAM piyo
      IMPLICIT NONE
      integer(16) :: a,b,c,k
      integer(16) :: rem,ans
      
      read*,a,b,c,k
      
      rem = k
      ans = 0
      
      if( rem>a )then
        ans = ans + a*1
        rem = rem - a
      else
        ans = ans + rem*1
        print*,ans
        stop
      end if
      
      if( rem>b )then
        ans = ans + b*0
        rem = rem - b
      else
        ans = ans + rem*0
        print*,ans
        stop
      end if
      
      if( rem>c )then
        ans = ans + c*(-1)
        rem = rem - c
      else
        ans = ans + rem*(-1)
        print*,ans
        stop
      end if
      
      print*,ans
      
      
      
      END PROGRAM