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

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

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.

П0 1 0 / {x} 1 0 * П1 ИП0 1 0 / [x] П1 ИП0 + С/П ИП0 ИП1 * С/П