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

function kr(n:longint):integer;var  s:string;begin  Str(Abs(n),s);  kr:=Length(s)end;var  k:longint;begin  Write('Введите целое число: '); Read(k);  Writeln('В этом числе количество разрядов равно ',kr(k))end.Пример работы программыВведите целое число: 1234567В этом числе количество разрядов равно 7