var fi,fo:text;
    a:array[1..250000]of longint;
    i,j,ct,n,m,q,p:longint;
procedure afla(q,p:longint);
var ct,rez:longint;
begin
  ct:=0;
  while ct<>p do
    begin
      rez:=a[q];
      q:=rez;
      inc(ct);
    end;
  writeln(fo,rez);
end;
begin
  assign(fi,'stramosi.in'); reset(fi);
  assign(fo,'stramosi.out'); rewrite(fo);
  read(fi,n,m);
  for i:=1 to n do
    read(fi,a[i]);
  for i:=1 to m do
    begin
      read(fi,q,p);
      afla(q,p);
    end;
  close(fi);
  close(fo);
end.