Даны два натуральных числа. Выяснить в каком из них сумма цифрбольше.Написать программу в паскале абс,использую функцию.

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

program SumOfDigits;
function DigitSum(num: integer): integer;
var
sum, digit: integer;
begin
sum := 0;
while num <> 0 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
end;
DigitSum := sum;
end;
var
num1, num2, sum1, sum2: integer;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number: ');
readln(num2);
sum1 := DigitSum(num1);
sum2 := DigitSum(num2);
if sum1 > sum2 then
writeln(num1, ' has a greater sum of digits.');
else if sum2 > sum1 then
writeln(num2, ' has a greater sum of digits.');
else
writeln('The sum of digits is equal for both numbers.');
end.

Программа запрашивает у пользователя два натуральных числа, вычисляет сумму цифр каждого из них с помощью функции DigitSum, а затем сравнивает их и выводит соответствующее сообщение.