Program stramosi;
 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;
     fi,fo:text;
begin
  assign(fi,'stramosi.in');
   assign(fo,'stramosi.out');
  reset(fi); rewrite(fo);
   readln(fi,n,m);
  for i:=1 to n do read(fi,a[0,i]); readln(fi);
   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(fi,x,a1);
                     poz:=0;
                      while a1<>0 do begin
                          if a1 mod 2=0 then x:=a[poz,x];
                           inc(poz);
                            a1:=a1 div 2;
                            end;
                      writeln(fo,x);
                     end;
   close(fo);
end.