program stramosi;  
    var v:array[1..250000]  of longint;  
           n,m,p,q,i:longint;  
           f,g:text;  
    begin  
    assign(f,'stramosi.in'); reset(f);  
    assign(g,'stramosi.out'); rewrite(g);  
    readln(f,n,m);  
    for i:=1 to n do  
       read(f,v[i]);  
   for i:=1 to m do  
       begin  
       readln(f,q,p);  
           while (p<>0)and(q<>0) do  
               begin  
               q:=v[q];  
               p:=p-1;  
               end;  
       writeln(g,q)  
       end;  
   close(f);  
   close(g);  
   end.