program DvuznachnoeChislo;
varn, a, b, sum, mul, newNumber: integer;
begin// Ввод двузначного числаwriteln('Введите двузначное число:');readln(n);
// Определение суммы и произведения цифрa := n div 10;b := n mod 10;sum := a + b;mul := a * b;
writeln('Сумма цифр:', sum);writeln('Произведение цифр:', mul);
// Образование нового числа из перестановки цифрnewNumber := b * 10 + a;writeln('Число, образованное перестановкой цифр:', newNumber);end.
program DvuznachnoeChislo;
var
n, a, b, sum, mul, newNumber: integer;
begin
// Ввод двузначного числа
writeln('Введите двузначное число:');
readln(n);
// Определение суммы и произведения цифр
a := n div 10;
b := n mod 10;
sum := a + b;
mul := a * b;
writeln('Сумма цифр:', sum);
writeln('Произведение цифр:', mul);
// Образование нового числа из перестановки цифр
newNumber := b * 10 + a;
writeln('Число, образованное перестановкой цифр:', newNumber);
end.