program stramosi;
var o :array [1..250000] of integer;
  m,n,ordin,i,c,mem:integer;
  f,g:text;
function stram(indexs:integer) :integer;
begin
if (c<ordin) and (o[indexs]<>0)
 then
 begin
 inc(c);
 stram := stram(o[indexs]) ;
 end
 else stram := o[indexs] ;
end;
begin
assign(f,'stramosi.in');
assign(g,'stramosi.out');
rewrite(g);
reset(f);
readln(f,n,m);
for i := 1 to n do
 read(f,o[i]);
readln(f);
for i:= 1 to m do
 begin
 readln(f,mem,ordin) ;
 c:= 1;
 writeln(g,stram(mem));
 end;
close(f);
close(g);
end.