{$codepage utf8} {$mode objfpc} Uses Complejos08,sysutils; Var A:TComplejo; Begin A:=TComplejo.Crear(4,2); Writeln(A.CompCad); A.CompCad:='4+3i'; Writeln(A.CompCad); A.real:=5; A.Imag:=8; Writeln(A.CompCad); End.