var f,g:text;
    n,i,t,j,p,q:longint;
    x:array[1..100] of longint;
begin
assign(f,'stramosi.in'); reset(f);
assign(g,'stramosi.out'); rewrite(g);
readln(f,n,t);
for i:=1 to n do read(f,x[i]);
for i:=1 to t do begin
         readln(f,p,q);
       for j:=1 to q  do p:=x[p];
             writeln(g,p)
             end;
close(f); close(g);
end.