type    vector=array[0..25000,0..200] of longint;
var     a:vector;
        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,1]);
    for i:=1 to n do
      begin
        j:=1;
        t:=a[i,1];
        while a[t,1]<>0 do
        begin
          inc(j);
          a[i,j]:=a[t,1];
          t:=a[t,1];
        end;
      end;
    for i:=1 to m do
      begin
        read(f1,t,s);
        if a[t,s]<>0 then writeln(f2,a[t,s]) else writeln(f2,'0');
      end;
  close(f1);
  close(f2);
end.