program stramosi;
var f,g:text;
    a:array of array  of longint;
    p,q,n,m,i,j:longint;
    bufin,bufout:array[1..65000] of byte;

begin
  assign (f,'stramosi.in'); reset (f);
  assign (G,'stramosi.out'); rewrite (G);
  settextbuf (f,bufin); settextbuf (g,bufout);
  readln (f,n,m);
  setlength (a,n+1,n+1);
  for i:=1 to n do
  begin
  read (f, a[1,i]);
  end;
  readln (F);
  for i:=2 to n do
   for j:=1 to n do
    a[i,j]:=a[1,a[i-1,j]];
   for i:=1 to m do
   begin
    readln (f,q,p );

    writeln (G,a[p,q]);
   end;
  close (F); close (G);
end.