Пользователь может ввести однозначное,двухзначное или трехзначное число. написать программу,вычисляющую,сколько цифр во введенном числе

Замечание: предполагается, что вводится неотрицательное число.
var a:integer;
BEGIN
write('Введите число: ');
readln(a);
write('Количество цифр в числе: ');
if a<10 then writeln(1)
 else if a<100 then writeln(2)
  else writeln(3);
END.

Пример:
Введите число: 52
Количество цифр в числе: 2