===== PascalABC.NET =====
begin
var n := ReadInteger;
var St := new Stack<integer>;
while n > 0 do
begin
St.Push(n mod 10);
n := n div 10
end;
var a := St.Println.Sorted.ToArray;
Println('Min =', a.First, ' max =', a.Last);
Println('Сумма цифр =', a.Sum, ' произведение =', a.Product)
end.
