Напишите ФУНКЦИЮ, которая вычисляет количество цифр числа

Function kolich (a: integer):integerBeginInteger i;I:=1While (a div 10 > 0) doBegin i:=i+1; a:=a div 10;End;Kolich:=i;End