Cod sursa(job #388364)

Utilizator potytzuPotinteu Minail potytzu Data 29 ianuarie 2010 21:51:02
Problema Stramosi Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program stramosi;
var v:array[0..250000] of longint;
    n,m,p,q,i,j:longint;
    f,g:text;

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,q,p);
         for j:=1 to p do
            q:=v[q];
         writeln(g,q);
      end;
   close(f);
   close(g);
end.