Задача. Дано целое число N \(N \\gt  0\). Определить количество цифр в восьмеричной записи числа N .

Составьте программу для решения задачи.

• program N;
• var k, x: integer;
• begin
• readln \( x \);
• k := 0;
• while x > 0 do begin
• k := k + 1; x := x div 8;
• end;
• write\( k \);
• end.