Вводится число от 1 до 15.вывести данное число,записанное римскими цыфрами

var a:integer; begin readln(a); if a = 1 then write('I'); if a = 2 then write('II'); if a = 3 then write('III'); if a = 4 then write('IV'); if a = 5 then write('V'); if a = 6 then write('VI'); if a = 7 then write('VII'); if a = 8 then write('VIII'); if a = 9 then write('IX'); if a = 10 then write('X'); if a = 11 then write('XI'); if a = 12 then write('XII'); if a = 13 then write('XIII'); if a = 14 then write('XIV'); if a = 15 then write('XV'); end.