type vec=array [1..300000] of longint;
var f,g:text;
    ok,ok1:boolean;
    n,m,p,q,aux,j,i:longint;
    a:vec;
begin
assign (f,'stramosi.in');
assign (g,'stramosi.out');
reset (f);
rewrite (g);
read (f,n,m);
readln (f);
for i:=1 to n do
read (f,a[i]);
for i:=1 to m do
begin
readln (f);
read (f,q,p);
aux:=p;
for j:=1 to p do
    begin
    aux:=a[aux];
    end;
writeln (g,aux);
end;
close(g);
close(f);
end.