K,*A=$<.map{_1.split.map &:to_i}
p (1..).bsearch{|i|A.sum{[0,[_2,i].min-_1+1].max}>=K[1]}