Cod sursa(job #343901)

Utilizator andrey932Andrei andrey932 Data 27 august 2009 17:52:21
Problema Stramosi Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var x:array[0..250000] of longint;
    i,j,p,q,m,n:longint;
    t,te:text;

begin
assign(t,'stramosi.in'); reset(t);
assign(te,'stramosi.out'); rewrite(te);
readln(t,n,m);
for i:=1 to n do
  read(t,x[i]);
readln(t);
for i:=1 to m do
  begin
    readln(t,q,p);
    for j:=1 to p do
        q:=x[q];
    writeln(te,q);
  end;
close(te);
end.