program stramosi;
var f,g:text;
        v,nr:array[0..250001] of longint;
        m,n:longint;




procedure iofile;
var i,j,k,l:longint;
begin
        assign(f,'stramosi.in');
        reset(f);
        assign(g,'stramosi.out');
        rewrite(g);
        nr[0]:=-1;
        readln(f,n,m);
        for i:=1 to n do
                begin
                read(f,v[i]);
                end;
        for i:=1 to n do
                nr[i]:=nr[v[i]]+1;
        v[0]:=0;
        for j:=1 to m do
                begin
                        readln(f,i,k);
                        if nr[i]<k then writeln(g,'0') else begin
                        for l:=1 to k do
                                begin
                                i:=v[i];
                                if i=0 then break;
                                end;
                        writeln(g,i);      end;
                end;
        close(g);
end;

begin
        iofile;
end.