Запишите на языке Паскаль программу, которая для произвольного двухзначного числа определяет :
а) сумму и произведение его цифр;
б)число, образованное перестановкой цифр исходного числа

var a,b,a1,a2:integer;beginreadln(a);b:=abs(a);a1:=b div 10;a2:=b mod 10;writeln('S = ',a1+a2,' P = ',a1*a2);b:=a2*10+a1;if a>0 then writeln(b) else writeln(-b);end.Пример:25S = 7 P = 1052