program stramosi;
var a:array[1..260000]of longint;
    i,j,n,m,x,y,stramos:longint;
    fin,fout:text;


begin
assign(fin,'stramosi.in'); reset(fin);
assign(fout,'stramosi.out'); rewrite(fout);

readln(fin,n,m);
for i:=1 to n do read(fin,a[i]);

for j:=1 to m do begin
    readln(fin,x,y);
    stramos:=x;
    for i:=1 to y do
        if stramos = 0 then break
        else stramos:=a[stramos];
    writeln(fout,stramos);
end;

close(fin); close(fout);
end.