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

program zz1;

var n:integer; // задаем переменную целого типа

begin

write( введите естественное число );

read(n);  // вводим с клавиатуры число

if n = 1 then write(I);

if n = 2 then write(II);

if n = 3 then write(III);

if n = 4 then write(IV);

if n = 5 then write(V);

if n = 6 then write(VI);

if n = 7 then write(VII);

if n = 8 then write(VIII);

if n = 9 then write(IX);

if n = 10 then write(X);

if n = 11 then write(XI);

if n = 12 then write(XII);

if n = 13 then write(XIII);

if n = 14 then write(XIV);

if n = 15 then write(XV);

end.