Вводится число от 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.

Информа́тика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений[1]. она включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных. темами исследований в информатике являются вопросы: что можно, а что нельзя реализовать в программах и базах данных (теория вычислимости и искусственный интеллект), каким образом можно решать специфические вычислительные и информационные с максимальной эффективностью (теория сложности вычислений), в каком виде следует хранить и восстанавливать информацию специфического вида (структуры и базы данных), как программы и люди должны взаимодействовать друг с другом (пользовательский интерфейс и языки программирования и представление знаний) и т. п.