1. Напишите программу, которая определяет сумму цифр 3-х числа. Например : 5+4div+8=17 2. Напишите программу , которая произведение чисел 3-х ( 548 ➡️ 160) Помогите пожалуйста

//PascalABC.Net 3.0, сборка 1053 var   n,s,p:integer; begin   Write('Введите натуральное трехзначное число: '); Read(n);   s:=(n div 100)+((n div 10) mod 10)+(n mod 10);   p:=(n div 100)*((n div 10) mod 10)*(n mod 10);   Writeln('Сумма цифр числа равна ',s);   Writeln('Произведение цифр числа равно ',p) end. Тестовое решение: Введите натуральное трехзначное число: 548 Сумма цифр числа равна 17 Произведение цифр числа равно 160