Дано натуральное число, верно ли, что кол-во его цифр есть четное число - PascalABC.NET

Никак не могу додуматься. Нужно через count while и div

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

begin
  var(n,c):=(ReadInteger,0);
  while n<>0 do (n,c):=(n div 10,c+1);
  WriteLn(not odd(c));
end.

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

В данном коде выполняется следующая последовательность действий:

Входные данные: натуральное число N.
Переменная n принимает значение N.
Переменная c инициализируется значением 0.
В цикле происходит деление числа N на 10 и обновление значения переменной n.
Значение переменной c увеличивается на единицу в каждой итерации цикла.
Цикл выполняется до тех пор, пока значение переменной n не станет равным нулю.
Выводится на экран значение переменной c.
Если значение переменной c является нечетным числом, то выводится сообщение Верно, иначе выводится сообщение Неверно. Таким образом, данный код проверяет, является ли количество цифр заданного натурального числа четным числом.