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

Var
  n,d,e:integer;
begin
  Write('Введите двухзначное число: '); Read(n);
  d:=n div 10; e:=n mod 10;
  Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
  Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.

Тестовое решение:
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92

А) 
Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.