{$codepage utf8} {$mode objfpc} Unit ListaReales; Interface Type TListaReales = class private Elementos:array of double; Procedure Pon(indice:integer;r:double); Function Obt(indice:integer):double; public cantidad:integer; Constructor Crear(n:integer=100); Property Elemento[i:integer]:double read Obt write Pon;default; End; Implementation Procedure TListaReales.Pon(indice:integer;r:double); Begin Elementos[indice]:=r; End; Function TListaReales.Obt(indice:integer):double; Begin Obt:=Elementos[indice] End; Constructor TListaReales.Crear(n:integer=100); Begin SetLength(Elementos,n); cantidad:=n End; End.