Найти количество цифр в натуральном числе - Turbo Pascal

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

Написать программу определения количества цифр в заданном натуральном числе. Помогите пожалуйста

Решение задачи: «Найти количество цифр в натуральном числе»

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

var
a:longint;
n:integer;
begin
readln(a);
n:=0;
while a>0 do
begin
a:=a div 10;
inc(n);
end;
writeln(n);
end.

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

В данном коде на языке Turbo Pascal происходит подсчет количества цифр в натуральном числе.

Переменная a типа longint используется для хранения числа, введенного пользователем.
Переменная n типа integer и инициализируется значением 0. Она будет использоваться для отслеживания количества цифр.
С помощью функции readln(a) происходит чтение числа из стандартного ввода и его сохранение в переменной a.
Затем начинается цикл while, который выполняется до тех пор, пока значение переменной a больше 0.
Внутри цикла значение переменной a делится на 10 с помощью оператора div. Это необходимо для того, чтобы при каждой итерации цикла значение переменной a уменьшалось на 10.
После выполнения деления значение переменной a обновляется и становится равным остатку от деления.
С помощью функции inc(n) значение переменной n увеличивается на 1.
Цикл while завершается, когда значение переменной a становится меньше 0.
По окончании цикла значение переменной n выводится на экран с помощью функции writeln().
Код завершается без использования функции close().