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

begin
  assign (f,'stramosi.in'); reset (f);
  assign (G,'stramosi.out'); rewrite (G);
  settextbuf (f,bufin); settextbuf (g,bufout);
  readln (f,n,m);
  for i:=1 to n do
  begin
   read (f,v[i]);
   a[1,i]:=v[i];
  end;
  readln (F);
  for i:=2 to n do
   for j:=1 to n do
    a[i,j]:=v[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.