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

var a,b:byte;
    num:integer;
    
begin
  write('Введите двухзначное целое число ');
  readln(num);
 
  //если число отрицательное - убираем знак
  num := abs(num);
 
  //десятки числа
  a:=num div 10;

  //единицы числа
  b:=num mod 10;

  writeln('Сумма цифр ', a , ' и ', b, ' = ', a+b);
  writeln('Произведение цифр ', a , ' и ', b, ' = ', a*b);
end.

1. Дeбил, с какой стати ты моё решение отметил как неверное?