var
	n,m,x,y,i,r,rt:longint;
  k:word;
  trm:boolean;
  fi,fo:text;
begin
	assign(fi,'stergeri.in');reset(fi);
  assign(fo,'stergeri.out');rewrite(fo);
	readln(fi,n,m,k);
  for i:= 1 to m do
  	begin
    	readln(fi,x,y);
      r:=(y-x)+1;
      trm:=false;
      inc(rt,r);
      if (k>=x) then
      	if trm then
        	begin
      			inc(k,rt);
            trm:=false;
            rt:=0;
          end
        else
        	begin
        		inc(k,r);
            if trm then
            	dec(rt,r);
          end
      else
      	if k<=x then
        	trm:=true;
    end;
	write(fo,k);
  close(fo);
end.