{$codepage utf8} {$mode objfpc} Uses Numeros02,Complejos08,Reales05; Var Ref:TClassNumero; cad:string; num1,num2:TNumero; rpt,continuar:char; Begin continuar:='S'; Repeat Writeln('Ingrese con que numeros quiere Multiplicar:'); Writeln('[1] Complejos'); Writeln('[2] Reales'); Readln(rpt); Case rpt of '1': Ref:=TComplejo; '2': Ref:=TReal; End; try Write('Ingrese el primer numero ');readln(cad); num1:=Ref.create; num1.PonCadE(cad); Write('Ingrese el segundo numero ');readln(cad); num2:=Ref.create; num2.PonCadE(cad); num1.Multiplicacion(num2); Writeln(num1.ObtCad(3)); except on E:EDatosInvalidos do Writeln(E.Message); end; Write('¿Desea continuar Multiplicando?:'); Readln(continuar) Until continuar in ['N','n'] End.