Дано целое двузначное число х. Составьте программу вычисления суммы и произведения цифр числа х. Значение х любое.

Var

x:integer;

begin

Write ('x='); Read (x);

x:=Abs (x); { вдруг число отрицательное }

Writeln ('Сумма цифр числа равна ', x div 10 + x mod 10);

Writeln ('Произведение цифр числа равно ', (x div 10) * (x mod 10))

end.

Пример

x=-73

Сумма цифр числа равна 10

Произведение цифр числа равно 21