type nuri=0..250000;
 muri=0..300000;
 vector=array [1..2500] of nuri;
var n:nuri;
  m:muri;
  i:muri;
  sm:vector;
  f,t:text;
 procedure citire(var n:nuri;var m:muri;var sm:vector);
  var i:nuri;
  begin
    readln(f,n,m);
    for i:=1 to n do read(f,sm[i]);
    readln(f);
  end;
 procedure intrebare(n:nuri;m:muri;sm :vector);
  var j,p,i,q,a:integer;ok:boolean;
  begin
    readln(f,q,p);
    i:=p;
    j:=q;
    ok:=true;
    repeat
    i:=i-1;
    a:=j;
    j:=sm[a];
    if j=0 then ok:=false;
    until (i=0) or (not ok);
    if ok then writeln(t,sm[a])
      else writeln(t,'0');
    end;
begin
  assign(f,'stramosi.in');
  assign(t,'stramosi.out');
  reset(f);
  rewrite(t);
  citire(n,m,sm);
  for i:=1 to m do intrebare(n,m,sm);
  close(f);
  close(t);
end.
end.