program TwoDigitNumber;

var
number, digit1, digit2, sum, product, newNumber: integer;

begin
// ввод двузначного числа
write('Введите двузначное число: ');
readln(number);

// определение цифр числа
digit1 := number div 10;
digit2 := number mod 10;

// вычисление суммы и произведения цифр
sum := digit1 + digit2;
product := digit1 * digit2;

writeln('Сумма цифр числа: ', sum);
writeln('Произведение цифр числа: ', product);

// формирование нового числа
newNumber := digit2 * 10 + digit1;

writeln('Число, образованное перестановкой цифр исходного числа: ', newNumber);
end.