var g,w,min,a,b,i,c:integer;
    f,e:text;
BEGIN
assign(f,'energii.in');reset(f);assign(e,'energii.out');rewrite(e);
read(f,g);read(f,w);min:=-1;c:=10001;
for i:=1 to g do
    begin
     readln(f,a,b);
     if a>=w then
        begin
            if (a>=w) and (b<c) then
            begin
             c:=b;
             min:=a;
            end;
        end;
    end;
if min>=w then write (e,c) else write(e,-1);
close(f);close(e);
END.