program ConversionNumeroRomano;
uses
SysUtils;
function NumeroRomanoALetras(numeroRomano: string): string;
begin
// Implementa aquí la lógica para convertir un número romano a letras
// Retorna el resultado como una cadena de caracteres
end;
function LetrasANumeroRomano(letras: string): string;
begin
// Implementa aquí la lógica para convertir letras a un número romano
// Retorna el resultado como una cadena de caracteres
end;
var
opcion: integer;
numeroRomano, letras: string;
begin
writeln('1. Convertir número romano a letras');
writeln('2. Convertir letras a número romano');
write('Ingrese su opción: ');
readln(opcion);
if opcion = 1 then
begin
write('Ingrese el número romano: ');
readln(numeroRomano);
letras := NumeroRomanoALetras(numeroRomano);
writeln('El número en letras es: ', letras);
end
else if opcion = 2 then
begin
write('Ingrese las letras: ');
readln(letras);
numeroRomano := LetrasANumeroRomano(letras);
writeln('El número romano es: ', numeroRomano);
end
else
begin
writeln('Opción inválida');
end;
readln;
end.