Написать программу о нахождении двухзначного числа А. Найти сумму и произведение цифр данного числа, а также вывести новое число, в котором цифры числа А поменялись местами

Var a, a1, a2:integer;

begin

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

writeln ("Сумма цифр = ", a1+a2) ;

writeln ("Произведение цифр = ", a1*a2) ;

writeln ("Число наоборот: ", a2*10+a1) ;

end.

Пример:

25

Сумма цифр = 7

Произведение цифр = 10

Число наоборот: 52