Паскаль Напечатать значение вводимого числа от 1 до 10 римскими цифрами

var   i,n:byte; begin   Write('Введите натуральное число от 1 до 10: ');   Read(n);   if not (n in [1..10]) then Writeln('Недопустимое значение')   else     Write('В римской записи: ');     case n of     4: Writeln('IV');     5: Writeln('V');     6: Writeln('VI');     7: Writeln('VII');     8: Writeln('VIII');     9: Writeln('IX');     10: Writeln('X');     else       begin for i:=1 to n do Write('I'); Writeln end     end; end. Тестовое решение: Введите натуральное число от 1 до 10: 3 В римской записи: III