Cod sursa(job #918164)

Utilizator sevestreanalinSevestrean Vasile sevestreanalin Data 18 martie 2013 17:54:08
Problema Stramosi Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g :text;
    v :array[0..250000] of longint;
    p,x,n,m,a :longint;
begin
assign(f,'stramosi.in');reset(f);
assign(g,'stramosi.out');rewrite(g);
read(f,n,m);
for i :=1 to n do
  read(f,v[i]);
for i := 1 to m do
  begin
  read(f,x,p);
  a:=v[x];
  for j := 2 to p do
    a:=v[a];
  write(g,a);
  end;
close(g);
end.