{$codepage utf8} {$mode objfpc} Uses Complejos06,sysutils; Var A,B:TComplejo; Begin A:=TComplejo.crear(10,4); B:=TComplejo.crear(0,0); try A.Division(B); except on E:EDivByZero do Writeln(E.Message); on E:EInvalidOp do Writeln(E.Message); end; Writeln(A.ObtCad(3)) End.