Cod sursa(job #282359)

Utilizator rendorzegAndrei Pavel rendorzeg Data 17 martie 2009 16:06:07
Problema Stramosi Scor 50
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
var f,g:text;
    v: array [1..250000] of integer;
    n,m,s,i,j,x,y:integer;
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,y);
                 s:=x;
                 for j:=1 to y do begin
                                  s:=v[s];
                                  if s=0 then break;
                                  end;

                 writeln(g,s);
                 end;
close(f);
close(g);
end.