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

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!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    endend;function nDigits(s:string):=s.Length; // если строкаbegin  Writeln(nDigits(1234567890123456)); // 16  Writeln(nDigits('123456789012345678901234567890')) // 30end.Результат1630