PROGRAM INFOARENA_Stramosi;
CONST nMax=250000;
VAR S:ARRAY[1..nMax] of 0..nMax;
    N,M,P,Q,I:LONGINT;
    F,G:TEXT;
BEGIN
ASSIGN(F,'stramosi.in');
ASSIGN(G,'stramosi.out');
RESET(F);
REWRITE(G);
READLN(F,N,M);
FOR I:=1 TO N DO READ(F,S[I]);
              {S[I]= numarul stramosului direct al persoanei cu nr. "I".}
FOR I:=1 TO M DO
    BEGIN
    READLN(F,Q,P);
    WHILE (P>0)AND(Q<>0) DO BEGIN
                            Q:=S[Q];
                            P:=P-1;
                            END;
    WRITELN(G,Q);
    END;
CLOSE(F);
CLOSE(G);
END.