Pascal. Задача 3-10

var
  N, digit, sum, mul : integer;
begin
  sum := 0;
  mul := 1;
  writeln('Введите натуральное число, меньше 1 000 000: ');
  read(N);
  while N > 0 do begin
    digit := N mod 10; // Выделяем последнюю цифру числа
    sum := sum + digit;
    mul := mul * digit;
    N := N div 10; // Отбрасываем последнюю цифру числа
  end;
  writeln('Сумма цифр числа: ', sum);
  writeln('Произведение цифр числа: ', mul);
end.