Exemplo N em Algarismo romanos

Program algarismosdojuju;
uses crt;
var N,R,Q : integer;


begin
     clrscr;
     textbackground(Blue);
     textcolor(lightgray);
     clrscr;
     write('Entre com o valor de N: ');
     readln(N);
     write('O valor em Algarismos Romanos ‚ : ');
     Q:= N div 1000;
     R:= N mod 1000;
          case Q of
          1:write('M');
          2:write('MM');
          3:write('MMM');
          end;

     N:= R;
     Q:= N div 100;
     R:= N mod 100;

          case Q of
          1:write('C');
          2:write('CC');
          3:write('CCC');
          4:write('CD');
          5:write('D');
          6:write('DC');
          7:write('DCC');
          8:write('DCCC');
          9:write('CM');
          end;

     N:=R;
     Q:= N div 10;
     R:= N mod 10;

          case Q of
          1:write('X');
          2:write('XX');
          3:write('XXX');
          4:write('XL');
          5:write('L');
          6:write('LX');
          7:write('LXX');
          8:write('LXXX');
          9:write('XC');
          end;
     N:=R;


          case R of
          1:write('I');
          2:write('II');
          3:write('III');
          4:write('IV');
          5:write('V');
          6:write('VI');
          7:write('VII');
          8:write('VIII');
          9:write('IX');
          end;
          textcolor(lightgreen+blink);
          gotoxy(50,24);
          write('Para sair digite algo... ');
          readkey;
end.