var f,g:text;
    n,i,t,nr,j,p,q,aux:longint;
    x:array[1..100] of longint;
    ok:boolean;
begin
assign(f,'stramosi.in'); reset(f);
assign(g,'stramosi.out'); rewrite(g);
readln(f,n,t);
for i:=1 to n do read(f,x[i]);
for i:=1 to t do begin
         readln(f,p,q);
         nr:=0;
         aux:=p;
         while  (aux<>0) and (nr<q) do begin
                                       inc(nr);
                                       aux:=x[aux];
                                       end;
             if nr=q then writeln(g,aux)
                     else writeln(g,'0');
             end;
close(f); close(g);
end.