Program Konversi Angka Menjadi Romawi dengan Pascal

program_merubah_ankga_1_sampai_10_menjadi_romawi
{I.S. : USER MEMASUKAN ANGKA DARI 1 SAMPAI 10}
{F.S. : MENAMPILKAN HASIL ANKGA BERUPA ROMAWI}
Kamus :

x : integer
hasil : string
Algoritma :

Input(x)

Case x
1 : hasil <- 'I'
2 : hasil <- 'II'
3 : hasil <- 'III'
4 : hasil <- 'IV'
5 : hasil <- 'V'
6 : hasil <- 'VI'
7 : hasil <- 'VII'
8 : hasil <- 'VIII'
9 : hasil <- 'IX'
10: hasil <- 'X'
Otherwise : hasil <- 'masukan angka 1 sampai 10 saja'
EndCase
Output(hasil)