program TwoDigitNumber;
vanumber, digit1, digit2, sum, product, newNumber: integer;
begi// ввод двузначного числwrite('Введите двузначное число: ')readln(number);
// определение цифр числdigit1 := number div 10digit2 := number mod 10;
// вычисление суммы и произведения цифsum := digit1 + digit2product := digit1 * digit2;
writeln('Сумма цифр числа: ', sum)writeln('Произведение цифр числа: ', product);
// формирование нового числnewNumber := digit2 * 10 + digit1;
writeln('Число, образованное перестановкой цифр исходного числа: ', newNumber)end.
program TwoDigitNumber;
va
number, digit1, digit2, sum, product, newNumber: integer;
begi
// ввод двузначного числ
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.