program romawi .

[ini yg romawi]

program romawi;
Uses Crt;

Const
Rom : array [1..13] of String =
('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');

Des : array [1..13] of integer =
(1000,900,500,400,100,90,50,40,10,9,5,4,1);

Var
Bil,i,Bil1 : Integer;
Roma : String;

Begin
clrscr;
Write('Masukkan Suatu Bilangan [1..3999] : ');
Readln(Bil);

Bil1 := Bil;
if (Bil > 0) and (Bil <>= Des[i]) do
Begin
Bil := Bil - Des[i];
Roma := Roma + Rom[i]
End;
End;

Write('Desimal ',Bil1,' Romawinya ',Roma)
end

else

Writeln('Tidak Diketahui Simbol Romawinya.....');

readkey;

End.