program stramos;
type vect = array [1..250000] 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 begin
q := A[q];
if (q=1) and (j<w-1) then q := 0;
if q=0 then break;
end;

writeln(fout,q);
end;
close(fin);
close(fout);
end.