gets
i=0
a=$<.map{|e|a,b=e.split.map &:to_i
[a-30000*b,i+=1]}.max
puts a[0]<500000?:NO: :YES,[a[1]]*6