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

VAR    n, n2, sum, pr: Integer; BEGIN    Read(n);    sum := (n div 10)+(n mod 10);    pr :=    (n div 10)*(n mod 10);     n2 :=  (n mod 10)*10 + (n div 10);     Writeln('Сумма цифр = ', sum);    Writeln('Прозведение цифр = ', pr);     Writeln('Полученое число = ', n2);  END.