var v:array [1..250000] of longint;
    i, n, m, x, y:longint;
    f, g:text;
    buf1, buf2:array [1.. 1 shl 17] of char;

begin
assign (f, 'stramosi.in');settextbuf (f, buf1); reset (f);
assign (g, 'stramosi.out'); settextbuf (g, buf2); rewrite (g);

read (f, n, m);
for i := 1 to n do read (f, v[i]);

for i := 1 to m do
  begin
  read (f, x, y);
  x:=v[x];
  while (y>1) and (x<>0) do
    begin
    x:=v[x]; dec(y);
    end;
  writeln (g, x);
  end;

close (f); close (g);
end.