Составить функцию для вычисления количества цифр натурального числа - Pascal

Дано натуральное число N. Составить функцию для вычисления количества его цифр

Листинг программы

Function GetNumCifr(A : Longint) : Integer;
Begin
  GetNumCifr := trunc(ln(A) / ln(10)) + 1
End;

Объяснение кода листинга программы

Функция GetNumCifr принимает один аргумент типа Longint, обозначенный как A.
Внутри функции используется функция ln(A), которая вычисляет натуральный логарифм числа A.
Затем используется оператор деления / для вычисления частного от деления ln(A) на ln(10).
Полученное значение округляется в меньшую сторону с помощью функции trunc.
К полученному значению добавляется единица, чтобы получить количество цифр в числе A.
Результат сохраняется в переменной GetNumCifr типа Integer.