1. Напишите программку, которая определяет сумму цифр 3-х числа. К примеру :

//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