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

Uses crt;

var input,a,b,c:integer;
begin       
readln(input);       
a:=input div 10;       
a:= a mod 10;       
b := input mod 10;               
writeln('Сумма ', a + b);       
writeln('Произведение ', a*b);       
writeln('Перестановка ', b * 10 + a);               
end.

Var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.