{$codepage utf8} {$mode objfpc} Uses sysutils,classes; Var ListaN,ListaD:Tlist; n:^integer; d:^double; i:byte; aux:pointer; Begin randomize; ListaN:=Tlist.create; ListaD:=Tlist.create; for i:=0 to 10 do begin new(n);new(d); n^:=random(1000); d^:=random; ListaN.add(n); ListaD.add(d); end; Writeln('ListaN'); Writeln('Capacidad = ',ListaN.Capacity); Writeln('Cantidad = ',ListaN.Count); i:=0; for aux in ListaN do Begin Writeln('[',i:2,'] ',integer(aux^)); i+=1 End; Writeln('Borrando'); for aux in ListaN do freemem(aux); ListaN.clear; ListaN.destroy; Writeln('ListaD'); Writeln('Capacidad = ',ListaD.Capacity); Writeln('Cantidad = ',ListaD.Count); i:=0; for aux in ListaD do Begin Writeln('[',i:2,'] ',double(aux^):0:3); i+=1 End; Writeln('Borrando'); for aux in ListaD do freemem(aux); ListaD.clear; ListaD.destroy End.