Пожалуйста посчитайте пожалуйста 5,6,7,8,9. Очень нужно! Заранее СПАСИБО!!!)

Так как у вас не отображаются остальные задания. Сделал проще. Прикрепил исходный файл Pascal к файлу.

1. /Задание номер 6
   
   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.