{$codepage utf8} {$mode objfpc} Uses sysutils,classes; Var Lista:Tlist; n:^integer; Begin Lista:=Tlist.create; new(n); n^:=random(1000); Lista.add(n); try Writeln(integer(Lista.items[15]^)); except on EListError do Writeln('Error elemento no existente'); end; End.