Напишите программу, которая вычисляет количество цифр числа. Используйте функцию.

function nDigits(n:int64):integer; // если число
begin
  Result:=0;
  if n<0 then n:=-n;
  while n>0 do begin
    Result+=1;
    n:=n div 10
    end
end;

function nDigits(s:string):=s.Length; // если строка

begin
  Writeln(nDigits(1234567890123456)); // 16
  Writeln(nDigits('123456789012345678901234567890')) // 30
end.


16
30