conversion de numeros romanos a letras

[[escafandra]]

Ejemplo sencillo:

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.

Saludos.