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