Программа которая переводит десятичное число в восьмеричное паскаль

program zz1;

var n, i, s:integer; / / вводим переменные целого типа

c:string;

begin

write (' введите десятичное число ');

read (n); / / вводим число с клавиатуры

while n > 0 do / / переводим в систему с основанием 8

begin

s: = n mod 8; / / получаем цифру числа с основанием 8

c:=c + inttostr (s); / / переводим число в строку и дописываем ее в строку

n:=n div 8; / / отбрасываем цифру из числа

end;

for i:=length (c) downto 1 do / / организуем цикл, в котором прочитаем с конца

write (c[i]); / / выводим ответ

end.