Исправьте пожалуйста ошибку
program mimi;
var n, p, s:integer;
begin
read(n);
count := 0;
write n > 0 do begin
n := n div10;
count := count +1
end;
n := abs(n);
end.



Задание:
Ввести натуральное число и найти сумму и произведение его цифр. Пример:Введите натуральное число:12345
Сумма цифр 15. Произведение цифр 120.

Я б написала так, в цикл while добавим счётчик суммы и произведения, s и p соответственно (Первоначально, s := 0; p := 1). Считаем всё это, пока n > 0. Затем в конце просто выводим сумму и произведение)program mimi;var n, p, s:integer;beginread(n);s := 0;p := 1;while n > 0 do begins := s + n mod 10;p := p*(n mod 10);n := n div 10;end;writeln(s);writeln(p);end.