Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе. формат входных данных на вход ваша программа получает одно натуральное число n (1≤n≤216−11≤n≤216−1). формат выходных данных выведите одно число — количество цифр в числе n.

Var n:longint;
function kol(n:integer):integer;
begin
if n<10 
 then kol:=1
 else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.

Пример:
n = 15324
k = 5

Var n: integer;
 function f(n: integer): integer;
begin
  if(n < 10) then f := 1
  else f := f(n div 10) + 1;
end;
 begin
  readln(n);
  write(f(n));
end.