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

//PascalABC.Net 3.0, сборка 1053var  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