Задача 6 Урок 20

Задача 6 Урок 20

Дано натуральное число N. Вычислите сумму его цифр.

program lesson20_6;
function sum(n: integer): integer;
begin
    if n div 10 = 0 then
        result := n
    else
        result := n mod 10 + sum(n div 10);
end;

var
    n: integer;
begin
    n := 88888;
    write('Summa = ', sum(n));
    readln();
end.