program stramosi;
type vec=array[1..10000] of boolean;
     mat=array[1..10000] of ^vec;


var n,m,x,i,j,p,q,ii,vf,i1:longint;
    f,g:text;
    v:mat;
    viz:vec;

procedure df(p,q:longint);
begin
viz[p]:=true;
for j:=1 to n do
	if (v[p]^[j]) and (viz[j]=false) then
    begin
    ii:=ii+1;
    if ii<=q then
      begin
      vf:=j;
  	  df(j,q);
      end
    end

end;



begin
assign(f,'stramosi.in');
reset(f);
assign(g,'stramosi.out');
rewrite(g);
read(f,n,m);
for i:=1 to n do
  begin
  new(v[i]);
  for j:= 1 to n do
  v[i]^[j]:=false;
  end;
for i:=1 to n do
  begin
  read(f,x);
  v[i]^[x]:=true;
  end;

for i:= 1to m do
begin
read(f,p,q);
ii:=0;
df(p,q);
if ii<q then
writeln(g,0)
else
writeln(g,vf);


for i1:=1 to n do
viz[i1]:=false;
end;
close(f);
close(g)

end.