Algoritmia - El algoritmo mostrará el número entero y su conversión en el sistema romano.

uses crt;

var

    unidad,decena,decimal:integer;

    romano:string;

begin

    clrscr;

    writeln('Conversion de entero a romano');

    writeln;

    repeat

        write('Ingrese un numero entre 1-99: ');

        readln(decimal);

    until decimal < 100;

    unidad:=decimal mod 10;

    decimal:=decimal-unidad;

    decimal:=decimal div 10;

    decena:=decimal mod 10;

    decimal:=decimal-decena;

    decimal:=decimal div 10;

    romano:='';

    case unidad of

        1: romano:='I';

        2: romano:='II';

        3: romano:='III';

        4: romano:='IV';

        5: romano:='V';

        6: romano:='VI';

        7: romano:='VII';

        8: romano:='VIII';

        9: romano:='IX';

    end;

    case decena of

        1: romano:='X'+romano;

        2: romano:='XX'+romano;

        3: romano:='XXX'+romano;

        4: romano:='XL'+romano;

        5: romano:='L'+romano;

        6: romano:='LX'+romano;

        7: romano:='LXX'+romano;

        8: romano:='LXXX'+romano;

        9: romano:='XC'+romano;

    end;

    writeln('El numero en romano es ',romano);

    readkey;

end.