var
	n,m,x,y,i,r,rt:longint;
  k:word;
  trm:boolean;
begin
	readln(n,m,k);
  for i:= 1 to m do
  	begin
    	readln(x,y);
      r:=(y-x)+1;
      inc(rt,r);
      if (k>=x) then
      	if trm then
        	begin
      			inc(k,rt);
            trm:=false;
            rt:=0;
          end
        else
        	inc(k,r)
      else
      	if k<=x then
        	trm:=true;
    end;	
	write(k);
end.