Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления.(Паскаль)

Дай бог вам здоровья.Спасибо большое)

const zs='01234567'; //цифры в 8 ССs:string;beginwrite('Введите число в 10 СС: ');readln(n);s:='';while n>0 dobegins:=zs[n mod 8+1]+s; //берем остаток от деления на 8 и эту цифру пишем в начало строкиn:=n div 8 //сокращаем числоend;write('Число в 8 СС: ',s);readlnend.

Странное задание!Если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. В восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, ... 14₁₀ = 16₈PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Введите число от 10 до 14:');  Writeln('В восьмеричной системе оно записывается как ',n+2)end.ПримерВведите число от 10 до 14: 13В восьмеричной системе оно записывается как 15