program main implicit none integer:: aw,ab,bw,bb,c,d,e,f read(*,*)aw,ab read(*,*)bw,bb read(*,*)c,d e=max(0,c-ab) f=min(d,e+bw) write(*,*)aw+f-e end program main