Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе.

Формат входных данных

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

Выведите одно число — количество цифр в числе n.

var n:longint;function kol(n:integer):integer;beginif n<10  then kol:=1 else kol:=kol(n div 10)+1;end;beginwrite('n = ');readln(n);writeln('k = ',kol(n));end.Пример:n = 15324k = 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.