{$codepage utf8} {$mode objfpc} Uses Complejos03,Reales; Var A,B,C:TComplejo; D,E,F:TReal; Begin A:=TComplejo.Crear(10,4); B:=TComplejo.Crear(3); C:=TComplejo.Crear(A.ObtReal,A.ObtImag); Writeln('A=',A.ObtCad(0)); Writeln('B=',B.ObtCad(0)); C.Adicion(B); Writeln('A+B=',C.ObtCad(0)); C.Crear(A.ObtReal,A.ObtImag); C.Multiplicacion(B); Writeln('A*B=',C.ObtCad(0)); D:=TReal.Crear(2); E:=TReal.Crear(3); F:=TReal.Crear(D.ObtReal); Writeln('D=',D.ObtCad(0)); Writeln('E=',E.ObtCad(0)); F.Adicion(E); Writeln('D+E=',F.ObtCad(0)); F.Crear(D.ObtReal); F.Multiplicacion(E); Writeln('D*E=',F.ObtCad(0)) End.