var a:array[0..18,1..250000] of longint;
    f,g:Text;
    nr,i,j,p,q,n,m:longint;

begin
 assign(f,'stramosi.in'); reset(f);
 assign(g,'stramosi.out'); rewrite(g);
 read(f,n,m);
 for i:=1 to n do
        read(f,a[0,i]);
 nr:=1; i:=n;
 while  i<>0 do begin
        for j:=1 to n do
                a[nr,j]:=a[nr-1,a[nr-1,j]];
        i:=i shr 1;
        nr:=nr+1;
 end;
 for i:=1 to m do begin
        nr:=0;
        read(f,p,q);
        while (q<>0) and (p<>0) do begin
                if q and 1=1 then
                        p:=a[nr,p];
                nr:=nr+1;
                q:=q shr 1;
        end;
        writeln(g,p);
 end;
 close(f); close(g);
end.