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

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