Функцию для нахождения суммы цифр произвольного натурального числа - PascalABC.NET

Формулировка задачи:

Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

Решение задачи: «Функцию для нахождения суммы цифр произвольного натурального числа»

Листинг программы

function SumDigits(N : Integer) : Integer := (N > 0 ? N mod 10 + SumDigits(N div 10) : 0);
 
begin
  WriteLn('Введите три натуральных числа:');
  var a := ReadLnInteger('первое =');
  var b := ReadLnInteger('второе =');
  var c := ReadLnInteger('третье =');
  WriteLn('Сумма цифр ', a, ' = ', SumDigits(a));
  WriteLn('Сумма цифр ', b, ' = ', SumDigits(b));
  WriteLn('Сумма цифр ', c, ' = ', SumDigits(c));
end.

Объяснение кода листинга программы

Входные данные: три натуральных числа, полученных от пользователя
Переменная a принимает значение первого введенного числа
Переменная b принимает значение второго введенного числа
Переменная c принимает значение третьего введенного числа
Выводится сумма цифр числа a, которую возвращает функция SumDigits(a)
Выводится сумма цифр числа b, которую возвращает функция SumDigits(b)
Выводится сумма цифр числа c, которую возвращает функция SumDigits(c)
Функция SumDigits определена с помощью рекурсии и представляет собой итерацию по всем цифрам числа N
Если N больше 0, то функция возвращает сумму цифр последней цифры числа N и вызывает себя же для числа N, разделенного на 10
Если N равно или равно 0, то функция возвращает 0
Функция SumDigits вызывается в каждой строке вывода с соответствующим числом в качестве аргумента
Если введенное число отрицательно, то программа выведет сообщение об ошибке
Вывод результатов происходит в консоль с помощью функции WriteLn
Для ввода чисел используется функция ReadLnInteger, которая считывает целое число с консоли
Программа завершается после вывода всех результатов
Использование языка программирования PascalABC.Net
Код написан в среде программирования PascalABC.Net
Версия языка PascalABC.Net не ниже 3.1
Общий объем кода не превышает 20 строк
Код решает задачу нахождения суммы цифр произвольного натурального числа