program stramos;
type vect = array [1..16000] of longint;
var A : vect;
    i,j,q,w,M,N: longint;
    fin,fout:text;
begin
assign(fin,'stramosi.in');
reset(fin);
readln(fin,N,M);
assign(fout,'stramosi.out');
rewrite(fout);
for i := 1 to N do
read(fin,A[i]);
readln(fin);
writeln;
for i := 1 to M do begin
readln(fin,q,w);
for j := 1 to w do
q := A[q];
writeln(fout,q);
end;
close(fin);
close(fout);
end.