Var a,a1,a2,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln('Сумма цифр = ',a1+a2);
writeln('Произведение цифр = ',a1*a2);
writeln('Число наоборот: ',a2*10+a1);
end.
Пример:
a = 25
Сумма цифр = 7
Произведение цифр = 10
Число наоборот: 52