function countDigits$n:Integer$: Integer;
begin
if n = 0 then
Result := 1
else
Result := Trunc$Log10(Abs(n))$ + 1;
end;

Пример использования:

var
num: Integer;
begin
num := 12345;
WriteLn${}^{\prime }Numberofdigits{:}^{\prime },countDigits(num)$;
end.

Эта функция принимает целое число n и возвращает количество цифр в этом числе. Она использует логарифм по основанию 10 для определения количества разрядов числа n.