Cod sursa(job #46847)

Utilizator fc_oni_cu_50_pctAnul asta in play-out fc_oni_cu_50_pct 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.