{$codepage utf8} {$mode objfpc} Uses Complejos; Var Numero01,Numero02,Resultado:TComplejo; Begin Numero01:=TComplejo.Create; Numero02:=TComplejo.Create; Resultado:=TComplejo.Create; Numero01.PonReal(3); Numero01.PonImag(5); Numero02.PonReal(5); Numero02.PonImag(2); Resultado.PonReal(Numero01.ObtReal); Resultado.PonImag(Numero01.ObtImag); Resultado.Adicion(Numero02); Writeln(Resultado.ObtCad(0)); Resultado.PonReal(Numero01.ObtReal); Resultado.PonImag(Numero01.ObtImag); Resultado.Multiplicacion(Numero02); Writeln(Resultado.ObtCad(0)); End.