Cod sursa(job #551093)
Utilizator | Data | 10 martie 2011 12:42:37 | |
---|---|---|---|
Problema | Stramosi | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
program stramosi;
uses crt;
var a:array[0..25000] of integer;
f,g:text;
n,m,p,q,i,x,j:longint;
begin
clrscr;
assign(f,'stramosi.in'); reset(f);
read(f,n,m);
for i:=1 to n do
read(f,a[i]);
assign(g,'stramosi.out'); rewrite(g);
for i:=1 to m do
begin
read(f,q,p);
x:=q;
for j:=1 to p do
x:=a[x];
writeln(g,x);
end;
close(f); close(g);
end.