program stramosi;
type fam=array[1..250000] of longword;
var fin,fout:text;
    n,m,i,j,p,q,s:longword;
    a:fam;

function stramos(a:fam;q,p:longword):longword;

begin

if p=0 then stramos:=q
       else if a[q]=0 then stramos:=0
                      else stramos:=stramos(a,a[q],p-1);

end;



begin
assign(fin,'stramosi.in');
reset(fin);
assign(fout,'stramosi.out');
rewrite(fout);

readln(fin,n,m);
for i:=1 to n do read(fin,a[i]);
readln(fin);

for i:=1 to m do
        begin
        readln(fin,q,p);

        s:=stramos(a,q,p);

        writeln(fout,s);

        end;

close(fin);
close(fout);
end.