Пример программы на Pascal:

program DecimalToOctal;
var
x, remainder: integer;
begin
repeat
writeln('Введите двузначное целое число x < 15: ');
readln(x);
until (x < 15) and (x > 9);
writeln('Десятичное число ', x, ' в восьмеричной системе счисления: ');
remainder := x mod 8;
x := x div 8;
write(x, remainder);
end.

Пользователю будет предложено ввести двузначное целое число x, и программа выведет его в восьмеричной системе счисления.