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

Формулировка задачи:

создать функцию которая считает количество цифр в числе

Решение задачи: «Создать функцию, которая считает количество цифр в числе»

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

var
  b: integer;
 
function NDigits(n: integer): integer;
var
  c: integer;
 
begin
  c := 0;
  while n > 0 do 
  begin
    n := n div 10;
    c := c + 1;
  end;
  NDigits := c;
end;
 
begin
  readln(b);
  write(NDigits(b));
end.

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

Создается переменная типа integer с именем b.
Создается функция с именем NDigits и типом возвращаемого значения integer, принимающая один аргумент типа integer с именем n.
В функции объявляется вспомогательная переменная типа integer с именем c.
В функции инициализируется значение переменной c равным 0.
В функции используется цикл while для перебора цифр числа n.
Внутри цикла значение переменной n делится на 10 с помощью оператора div.
Результат деления сохраняется в переменной n.
К переменной c прибавляется единица.
После окончания цикла значение переменной c возвращается из функции.
Значение переменной b считывается с помощью процедуры readln.
Вызывается функция NDigits с аргументом b.
Результат работы функции выводится на экран с помощью процедуры write.
Программа завершается.