var
  Osok: array[1..19,1..250000] of longint;
  van: array[1..250000] of boolean;
  f, g: text;
  n, n2, m, i, j, a, b, akt, k: longint;

  ketto: array[1..20] of longint;

begin
  Assign(f, 'stramosi.in');
  Assign(g, 'stramosi.out');
  Reset(f);
  ReWrite(g);

  ReadLn(f, n, m);

  ketto[1] := 1; for i := 2 to 20 do ketto[i] := ketto[i-1] * 2;

  n2 := 19;
  while (n div ketto[n2]) = 0 do Dec(n2);
  for i := 1 to n do van[i] := true;

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

  for j := 2 to n2 do
    for i := 1 to n do
      begin
        if van[i] then
          if Osok[j - 1,i] <> 0 then Osok[j,i] := Osok[j - 1, Osok[j - 1,i]];
          if Osok[j,i] = 0 then
            begin
              Dec(n);
              van[i] := false;
            end;
      end;

  for i := 1 to m do
    begin
      ReadLn(f, a, b);
      n := 19;
      k := b;
      akt := a;

      while (k <> 0) and (akt <> 0) do
        begin
          while (k div ketto[n]) = 0 do Dec(n);
          akt := Osok[n,akt];
          k := k - ketto[n];
        end;

      WriteLn(g, akt);
    end;

  Close(f);
  Close(g);
end.