program stramosi;
var f,g:text;
a:array[1..250000] of longint;
n,m,i,k,poz,nr:longint;
begin
  assign(f,'stramosi.in'); assign(g,'stramosi.out');
  reset(f); rewrite(g);
  read(f,n,m);
  for i:=1 to n do read(f,a[i]);
  for i:=1 to m do
  begin
    read(f,poz,nr);
    k:=0;
    while k<nr do
    begin
    k:=k+1;
    poz:=a[poz];
    if poz=0 then begin writeln(g,'0'); k:=nr+1; end;
    end;
    if poz<>0 then writeln(g,poz);
  end;
  close(f); close(g);
end.