var
  Osok: array[1..250000] of longint;
  f, g: text;
  n, m, i, a, b, akt: longint;
begin
  Assign(f, 'stramosi.in');
  Assign(g, 'stramosi.out');
  Reset(f);
  ReWrite(g);

  ReadLn(f, n, m);

  for i := 1 to n do
    begin
      Read(f, a);
      Osok[i] := a;
    end;

  for i := 1 to m do
    begin
      ReadLn(f, a, b);
      n := 1;
      akt := osok[a];
      while (n <> b) and (akt <> 0) do
        begin
          Inc(n);
          akt := Osok[akt];
        end;
      WriteLn(g, akt);
    end;
  Close(f);
  Close(g);
end.