Cod sursa(job #46847)
| Utilizator | Data | 3 aprilie 2007 01:14:29 | |
|---|---|---|---|
| Problema | Schi | Scor | 55 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.65 kb |
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.