informatyki i systemów mikroprocesorowych

program rzymskie;

function Rzymska (L: Integer) : String;
const
  Jednosci   : Array [0..9] of String =
               ('', 'I', 'II', 'III', 'IV', 'V',
                'VI', 'VII', 'VIII', 'IX');
  Dziesiatki : Array [0..9] of String =
               ('', 'X', 'XX', 'XXX', 'XL', 'L',
                'LX', 'LXX', 'LXXX', 'XC');
  Setki      : Array [0..9] of String =
               ('', 'C', 'CC', 'CCC', 'CD', 'D',
                'DC', 'DCC', 'DCCC', 'CM');
  Tysiace    : Array [0..3] of String =
               ('', 'M', 'MM', 'MMM');


var
  Jedn, Dzie, Setk, Tys : Byte;
begin
  Jedn := L mod 10;
  Dzie := (L div 10) mod 10;
  Setk := (L div 100) mod 10;
  Tys  := (L div 1000) mod 10;
  Rzymska := Tysiace[Tys]+Setki[Setk]+Dziesiatki[Dzie]+Jednosci[Jedn];
end;


var
  Liczba : Integer;

begin
  repeat
    write ('Podaj liczbe (0, ujemna, lub wieksza od 3000 aby zakonczyc): '); readln (Liczba);
    if (Liczba>0) and (Liczba<=3000) then
      writeln ('Liczba rzymska ', Rzymska(Liczba)); writeln;
  until (Liczba<=0) or (Liczba>3000);
end.