Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее использованием определить в каком из двух заданных натуральных чисел сумма цифр больше. ( в Pascal ABC)

Предыдущий
вопрос Следующий
вопрос

program SumOfDigits
function CountDigitsSum(number: integer): integer
begi
if number < 10 the
CountDigitsSum := numbe
els
CountDigitsSum := number mod 10 + CountDigitsSum(number div 10)
end
va
num1, num2, sum1, sum2: integer
begi
writeln('Enter the first number: ')
readln(num1)
writeln('Enter the second number: ')
readln(num2)
sum1 := CountDigitsSum(num1)
sum2 := CountDigitsSum(num2)
writeln('Sum of digits of the first number: ', sum1)
writeln('Sum of digits of the second number: ', sum2)
if sum1 > sum2 the
writeln('Sum of digits of the first number is greater.'
else if sum2 > sum1 the
writeln('Sum of digits of the second number is greater.'
els
writeln('Sum of digits of both numbers are equal.')
end.

Пример использования:

Enter the first number
12
Enter the second number
45
Sum of digits of the first number:
Sum of digits of the second number: 1
Sum of digits of the second number is greater.