Алгоритм разбиения записи натурального числа (с основанием не превышающим 10) на отдельные цифры. Язык программирования Паскаль

Задача. Дано целое число N (N > 0). Определить количество цифр в восьмеричной записи числа N . Составьте программу для решения задачи.

Задача. Дано целое число N (N > 0). Определить сумму цифр в пятеричной записи числа N . Составьте программу для решения задачи.

Укажите число, которое будет выведено на экране в результате работы фрагмента программы. program N; var S, x: integer; begin x := 345; while x > 0 do begin write( x mod 9); x := x div 9; end; end.