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

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

Var a,b:byte;
    num:integer;
    
begin
  write('Введите двухзначное целое число ');
  readln(num);
 
  //если число отрицательное - убираем знак
  num := абс(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 * С/П