Cod sursa(job #918170)

Utilizator sevestreanalinSevestrean Vasile sevestreanalin Data 18 martie 2013 17:56:03
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..25000] of integer;
    p,x,n,m,a,i,j :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.