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

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