Дано целое двухзначное число a. Получить удвоенное значение наименьшего числа, которое можно получить из цифр заданного числа a - Pascal ABC

Формулировка задачи:

Дано целое двухзначное число a. Получить удвоенное значение наименьшего числа, которое можно получить из цифр заданного числа a. Входные данные: Во входном потоке записано единственное целое двухзначное число. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 48 Пример выходного файла (output.txt): 96

Решение задачи: «Дано целое двухзначное число a. Получить удвоенное значение наименьшего числа, которое можно получить из цифр заданного числа a»

Листинг программы

var
  a, a1, a2: integer;
begin
  readln(a);
  a1 := a div 10;
  a2 := a mod 10;
  if a < a2 * 10 + a1
    then writeln(a * 2)
    else writeln((a2 * 10 + a1) * 2)
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Переменные в коде:

a: входное двухзначное число
a1: первая цифра числа a, полученная путем деления на 10
a2: вторая цифра числа a, полученная путем взятия остатка от деления на 10
result: результат выполнения программы, удвоенное наименьшее число, которое можно получить из цифр числа a Код читает входное двухзначное число a с помощью функции readln(). Затем число делится на 10, чтобы получить первую цифру, и остаток от деления сохраняется во второй переменной. Далее происходит проверка: если a меньше произведения второй цифры на 10 и первой цифры (a2 * 10 + a1), то выводится произведение первой цифры на 2. В противном случае выводится произведение второй цифры на 2 и суммы первой и второй цифр. Таким образом, результатом работы программы будет удвоенное наименьшее число, которое можно получить из цифр заданного числа a.