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

Количество цифр определяется последовательным делением числа на 10. Для нуля отдельно учитывается одна цифра.

function kbd(n: integer): integer;
var k: integer;
begin
  n := Abs(n);
  k := 1;
  while n >= 10 do
  begin
    n := n div 10;
    k := k + 1;
  end;
  kbd := k;
end;

Ответ: функция kbd вычисляет число цифр в десятичной записи числа.