Напишите функцию, которая вычисляет количество цифр числа (PascalABC)

Function kol(n:integer):integer;
var
   kol1:integer;
begin
   kol1:=0;
   repeat
      kol1:=kol1+1;
      n:=n div 10;
   until n=0;
   kol:=kol1;
end;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.