Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа 1) сумму и произведение его цифр; 2) число,образованное перестановкой цифр исходного числа.
Var n,sum,pr,a:integer; begin readln(n); sum:=0 pr:=1; while n<>0 do begin a:=n mod 10; sum:=sum+a; pr:=pr*a; n:=n div 10; end; writeln(sum,' ',pr); end.
