type mult=1..250000;
     matr=array[0..18,0..250000] of mult;

var f,g:text;
    j,i,n,m,st,vl,a,b,ct:longint;
    s : matr;




begin

 assign(f,'stramosi.in');
 reset(f);
 assign(g,'stramosi.out');
 rewrite(g);
 readln(f,n,m);
 for i:=1 to n do
  begin
   read(f,s[0,i]);
  end;
 st:=1;
 while st<=n do
  begin
   st:=st shl 1;
   inc(ct);
  end;
 dec(ct);
 for i:=1 to ct do
  for j:=1 to n do
    s[i,j]:=s[i-1,s[i-1,j]];
for i:=1 to m do
begin
  readln(f,a,b);
  while b>0 do
  begin
   ct:=0;
   while (1 shl ct) <= b do
    inc(ct);
   dec(ct);
   b:=b-(1 shl ct);
   a:=s[ct,a];
  end;
writeln(g,a);
end;
close(f);
close(g);
end.