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

Var
Summ, proizv, per,A,b,n:integer;
Begin
Read(n);
A:=n div 10;
B:=n mod 10;
Summ:=a+b;
Proizv:=a*b;
Per:=b*10+a;
Write(Summ, proizv, per);
End.