var v:array[0..17,0..250000] of longint;
m,n,i,j,p,q:longint;
f,g:text;
begin
assign(f,'stramosi.in');
assign(g,'stramosi.out');
reset(f);rewrite(g);
readln(f,n,m);
for i:=1 to n do
    read(f,v[0,i]);
readln(f);
for i:=1 to 17 do
    for j:=1 to n do
        if v[i-1,j]<>0 then
           v[i,j]:=v[i-1,v[i-1,j]];
for i:=1 to m do
    begin
    readln(f,q,p);
    j:=0;
    repeat
          if p mod 2=1 then
             q:=v[j,q];
          if q=0 then
             break;
          j:=j+1;
          p:=p div 2;
    until p=0;
    writeln(g,q);
    end;
close(f);close(g);
end.