Cod sursa(job #1179709)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 29 aprilie 2014 07:45:09
Problema Stramosi Scor 70
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
  var p:array[1..250000] of longint;
       n,m,x,y,i,j:longint;

  begin
  assign(input,'stramosi.in');
  reset(input);
  assign(output,'stramosi.out');
  rewrite(output);

  readln(n,m);

  for i:=1 to n do read(p[i]);
  for i:=1  to m do begin
        readln(x,y);
        for j:=1 to y do
          begin
           x:=p[x];
           if x=0 then break;
          end;
        writeln(x);
        end;
  close(output);
  end.