Program stramosi_2;
 var i,j,n,m,q,p:longint;
     a:array [1..250000] of longint;
     b1,b2:array [1..1 shl 17] of char;
     fi,fo:text;
begin
 assign(fi,'stramosi.in');
 assign(fo,'stramosi.out');
 settextbuf(fi,b1);
 settextbuf(fi,b2);
 reset(fi);
  rewrite(fo);
 readln(fi,n,m);
  for i:=1 to n do
             read(fi,a[i]);
                readln(fi);
  for i:=1 to m do begin
    readln(fi,q,p);
     if (a[q]=0) or (p=1) then writeln(fo,a[q])
      else begin
            j:=1;
             while (a[q]<>0) and (j<p) do begin
                                              q:=a[q];
                                              inc(j);
                                              end;
            if j=p then writeln(fo,a[q])
                    else writeln(fo,'0');
            end;
    end;
 close(fo);
end.