x,y,*a=$<.read.split.map &:to_i
p [x,y].max+(a.max<y ?1:0)