type vector=array[1..1000]of longint;
procedure sterge(var a:vector;var n,x,y:longint);
var i,j,t:longint;
ok:boolean;
begin
t:=y-x+1;
 for i:=x to n-t do
   a[i]:=a[i+t];

end;
var n,x,y,i,m,k:longint;
    a:vector;
begin
assign(input,'alexc.in');reset(input);
assign(output,'alexc.out');rewrite(output);
readln(n,m,k);
for i:=1 to n do
a[i]:=i;
for i:=1 to m do begin
readln(x,y);
sterge(a,n,x,y);
n:=n-(y-x+1);
end;
write(a[k]);
close(input);close(output);
end.