Ответ:
program Hello;
var a,b,c,s,x: integer;
begin
writeln('введите двузначное число х');
readln(x);
a:=x div 10;
b:=x mod 10;
c:=a + b;
s:=a * b;
writeln('Результат суммы произведение = ',c,' произведение = ',s);
end.
Объяснение:
Вам уже написали готовую программу