Pagini recente » Cod sursa (job #3135582) | Cod sursa (job #2464123) | Cod sursa (job #2328054) | Cod sursa (job #2723802) | Cod sursa (job #46847)
Cod sursa(job #46847)
program schi;
type pnod=^nod;
nod=record
inf:integer;
adr:pnod;
end;
var p,q,nou:pnod;
f,g:text;
n,i,j,x:integer;
begin
assign(f,'schi.in'); reset(f);
assign(g,'schi.out'); rewrite(g);
read(f,n);
new(p);
p^.inf:=0;
q:=p;
for i:=1 to n do begin
read(f,x);
q:=p;
for j:=1 to x-1 do q:=q^.adr;
new(nou);
nou^.inf:=i;
if q^.adr<> nil then nou^.adr:=q^.adr;
q^.adr:=nou;
end;
for i:=1 to n do begin
p:=p^.adr;
writeln(g,p^.inf);
end;
close(f); close(g);
end.