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

на каком языке программирования?

Var
  x:integer;

begin
  Write('x='); Read(x);
  x:=Абс(x); вдруг число отрицательное
  Writeln('Сумма цифр числа одинакова ',x div 10 + x mod 10);
  Writeln('Творение цифр числа одинаково ',(x div 10)*(x mod 10))
end.

Пример
x=-73
Сумма цифр числа одинакова 10
Произведение цифр числа одинаково 21