{$codepage utf8} {$mode objfpc} Unit Reales03; Interface Uses Complejos04; Type TReal = class(TComplejo) Constructor Crear(r:double); Function ObtCad(dec:integer):string; End; Implementation Constructor TReal.Crear(r:double); Begin inherited Crear(r,0); End; Function TReal.ObtCad(dec:integer):string; var p:string; Begin Str(ObtReal:0:dec,p); ObtCad := p End; End.