Pagini recente » Cod sursa (job #1799004) | Cod sursa (job #2744764) | Cod sursa (job #2013850) | Cod sursa (job #1983847) | Cod sursa (job #584807)
Cod sursa(job #584807)
type stramos=record
x,y:integer;
end;
var v:array[1..250000]of integer;
a:array[1..300000]of stramos;
n,m,i,j,xx:longint;
begin
assign(input,'stramosi.in');reset(input);
assign(output,'stramosi.out');rewrite(output);
read(n,m);
for i:=1 to n do read(v[i]);
for i:=1 to m do begin
read(a[i].x,a[i].y);
xx:=v[a[i].x];
for j:=1 to a[i].y-1 do
xx:=v[xx];
writeln(xx);
end;
close(output);
end.