Convert Latin to Romawi

program KonversiLain;

uses
    crt;
var
    latin:integer;

begin
     ClrScr;
     write('Masukan angka antara 1 sampai 10: ');
     readln(latin);
         case(latin) of
           1: write('Angka romawinya adalah I');
           2: write('Angka romawinya adalah II');
           3: write('Angka romawinya adalah III');
           4: write('Angka romawinya adalah IV');
           5: write('Angka romawinya adalah V');
           6: write('Angka romawinya adalah VI');
           7: write('Angka romawinya adalah VII');
           8: write('Angka romawinya adalah VIII');
           9: write('Angka romawinya adalah IX');
           10: write('Angka romawinya adalah X');
         else
             write('Tidak termasuk angka antara 1-10 angka ',latin);
         end;
     writeln;
     writeln;
     writeln('tekan enter untuk menutup...');
     readln;
end.