===== PascalABC.NET =====

begin

 var n := Abs(ReadInteger('n ='));

 var (a1, a2, a3) := (n div 100, n div 10 mod 10, n mod 10);

 Println('Сумма первых двух цифр числа равна', a1 + a2);

 Println('Произведение двух последних цифр числа равно', a2 * a3)

end.