Требуется задать программу для подсчета цифр в натуральном числе. оформить в виде функции (на питоне)

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

Должны потому что:

1. Сейчас 21 век, вокруг есть компьютеры и их изучение необходимо.

2. Информатика развивает логическое мышление.

3. На информатике можно изучить язык программирования, с него можно писать программы.

4. Изучение программ worl и excel нужны чтобы устроится на работы. Почти везде просят эти знания.

5. Работа программистом востребована в наши дни, за эту работу платят много денег.

Не должны:

1. Можно обойтись и без информатики, например в деревне. Пасти овц и сажать картошку.

2. Хоть программирование не сложнее иностранного языка, он даётся некоторым людям очень тяжело.

3. На уроке информатики даётся не очень много полезной информации, лучше ходить в специальные места для программирования или 3д моделирования.

4. Вместо уроков обучится потом самостоятельно.

5. Если уже знаешь всё и так, можно и не изучать повторно.