program stramosi;
type
	linie=array [1..1024] of longint;
  matrice=array [0..250] of ^linie;
var a:matrice;
		n,m,p,q,i,x,y:longint;
		f1,f2:text;

function str:longint;
var j,s:longint;
begin
j:=0;
s:=q;
repeat
	j:=j+1;
 { x:=(s div 1000)+1;
  y:=s mod 1000;
  s:=a[x]^[y];   }
  s:=a[s shr 10]^[s and 1023];
  if s=0 then
		j:=p
until j=p;
str:=s
end;

begin
assign(f1,'stramosi.in'); reset(f1);
readln(f1,n,m);
for i:=0 to (n shr 10) do
  new(a[i]);
i:=0;
repeat
	i:=i+1;
{  x:=(i div 1000)+1;
  y:=i mod 1000;
  read(f1,a[x]^[y])  }
  read(f1,a[i shr 10]^[i and 1023])
until i=n;
assign(f2,'stramosi.out'); rewrite(f2);
i:=0;
repeat
  i:=i+1;
  readln(f1,q,p);
  writeln(f2,str)
until i=m;
close(f1);
close(f2)
end.