a,_,b,_,c,d=$<.read.split.map &:to_i
p [d,b+t=[a,c].min].min+a-t