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

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

function nDigits(n:int64):integer; // если число
begin
  Result:=0;
  if nlt;0 then n:=-n;
  while ngt;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