паскаль Напечатать значение вводимого числа от 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