Código Delphi [-] program Project1; {$APPTYPE CONSOLE} uses SysUtils, URomanNumbers; var S : string; begin Writeln('Introduzca un número romano:'); Readln(S); with TRomanNumbers.Create do begin Writeln(RomanToInt(UpperCase(S))); Free; end; Readln(S); end.
program Project1; {$APPTYPE CONSOLE} uses SysUtils, URomanNumbers; var S : string; begin Writeln('Introduzca un número romano:'); Readln(S); with TRomanNumbers.Create do begin Writeln(RomanToInt(UpperCase(S))); Free; end; Readln(S); end.