Сумма и произведение цифр числа в Pascal

Дано число. Найти сумму и произведение его цифр.

Введем переменные:

• n — число;
• sum — сумма цифр;
• mult — произведение цифр.

Алгоритм решения задачи:

1. sum присвоить ноль.
2. mult присвоить единицу (при умножении на ноль результат будет нулевым).
3. Пока n больше нуля
   1. найти остаток от деления n на 10 (то есть последнюю цифру числа), добавить его к сумме и увеличить произведение;
   2. избавиться от последнего разряда числа n путем деления нацело на число 10.

Программа на языке Паскаль:

var
    n, sum, mult: integer;

begin
    write('Введите число: ');
    readln(n);

    sum := 0;
    mult := 1;

    while n > 0 do begin
        sum := sum + n mod 10;
        mult := mult * (n mod 10);
        n := n div 10
    end;

    writeln('Сумма его цифр = ', sum);
    writeln('Произведение цифр = ', mult);
end.

Примеры выполнения программы:

Введите число: 345
Сумма его цифр = 12
Произведение цифр = 60

Введите число: 9085
Сумма его цифр = 22
Произведение цифр = 0