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

Для отрицательного числа знак «−» не является цифрой, поэтому сначала берём модуль числа. Для числа 0 количество цифр равно 1.

function kol(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;
  kol := k;
end;

Ответ: функция kol возвращает количество цифр целого числа.