"Написать программу, определяющую из скольки цифр состоит данное натуральное число"
Вот как я её написал, но по-моему это не рекурсия!! Объясните пожалуйста как её переделать(если она не правильна)!!!.............
program lab6;
uses crt;
var
m:longint; q:char;
function KOL(n:longint):word;
var k:word;
begin
k:=0;
if n=0 then begin k:=1; kol:=k; end;
while (n<>0) do
begin
n:=n div 10;
inc(k);
KOL:=k;
end;
end;
begin
repeat
clrscr;
writeln('введите натуральное число');
readln(m);
writeln('число ',m,' состоит из ', KOL(m),' цифр');
write('Вычислить еще ?(Y/N)');
q:=ReadKey;
until not (q in ['Y','y']);
end.