var     a:array[0..250000] of longint;
        n,m,k,i,j,t,s:longint;
        f1,f2:text;
begin
  assign(f1,'stramosi.in');
  assign(f2,'stramosi.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n,m);
    for i:=1 to n do
      read(f1,a[i]);
    for i:=1 to m do
      begin
        read(f1,t,s);
        j:=1;
        t:=a[t];
        while ((a[t]<>0) and (j<s)) do
        begin
          t:=a[t];
          inc(j);
        end;
      if j=s then writeln(f2,t) else writeln(f2,'0');
      end;
  close(f1);
  close(f2);
end.