var a:array [0..20,0..250000] of longint;
    n,m,a1,x,poz,i,j:longint;
    b1,b2:array [1..1 shl 15] of char;
    f,g:text;
begin
  assign(f,'stramosi.in');
  assign(g,'stramosi.out');
  reset(f);
  rewrite(g);
  readln(f,n,m);
  for i:=1 to n do
    read(f,a[0,i]);
  readln(f);
  for i:=1 to 18 do
    for j:=1 to n do
      a[i,j]:=a[i-1,a[i-1,j]];
  for i:=1 to m do
    begin
      readln(f,x,a1);
      poz:=0;
      while a1<>0 do
        begin
          if a1 mod 2<>0 then
            x:=a[poz,x];
          inc(poz);
          a1:=a1 shr 1;
        end;
      writeln(g,x);
    end;
  close(f);
  close(g);
end.