import Control.Applicative

main = do
  [aw,ab]:[bw,bb]:[c,d]:_ <- map ((map (read::String->Int)) . words) <$> lines <$> getContents
  let t = if ab<c then c-ab else 0
  print $ aw - t + (if bw+t<d then bw+t else d)