{$codepage utf8} {$mode objfpc} Uses ListaEnteros; Var MiLista:TListaEnteros; i:integer; Begin MiLista:=TListaEnteros.Crear(10); //0-99 elementos; randomize; for i:=0 to MiLista.cantidad-1 do MiLista[i]:=random(1000); for i:=0 to MiLista.cantidad-1 do Writeln('[',i,']=',MiLista[i]) End.