ВЫПОЛНИТЕ ЗАДАНИЕ ПО ИКТ НУЖНО ОЧЕНЬ​

Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207

Рюкза́к (от нем. Rücksack — заплечная сумка) — специализированная сумка для длительной переноски на спине различных грузов. Снабжён двумя (реже — одной) косыми (идут от области шеи в бока) лямками, надеваемыми на плечи, а также, в большинстве случаев, ручкой с верхней стороны, стабилизирующими и разгрузочными ремнями, и дополнительными элементами для навесного закрепления предметов экипировки и амуниции, в зависимости от области его применения.
В зависимости от конструкции, может напоминать армейский ранец или вещмешок, но отличается от ранца тем, что последний снабжён прямыми лямками и не имеет дополнительных элементов, а от вещмешка тем, что лямки рюкзака раздельны и в верхней части жёстко закреплены (пришиты), а не привязываются к горловине мешка.