Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы - Turbo Pascal

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

Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные суммы выбрав ровно 4 числа из заданных изначально.

Решение задачи: «Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы»

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

var i,a,s,mn,mx:integer;
begin
writeln('Введите 5 целых чисел');
readln(a);
s:=a;
mn:=a;
mx:=a;
for i:=2 to 5 do
 begin
  readln(a);
  s:=s+a;
  if a<mn then mn:=a
  else if a>mx then mx:=a;
 end;
writeln('Минимальная сумма=',s-mx,' максимальная сумма',s-mn);
end.

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

Создается переменная i типа integer, которая будет использоваться для цикла.
Создаются переменные a, s, mn и mx также типа integer. Переменные a, s и mx инициализируются значением a, которое было введено пользователем. Переменная mn инициализируется наименьшим значением из a, s и mx.
В цикле от 2 до 5 выполняется следующая последовательность действий:
- Число a, введенное пользователем, считывается в переменную a.
- Переменная s увеличивается на значение a.
- Если a меньше, чем текущее значение mn, то mn обновляется значением a.
- Если a больше, чем текущее значение mx, то mx обновляется значением a.
После выполнения цикла выводится сообщение с минимальной и максимальной суммой, рассчитанными на основе переменных s и mn. Код выполняет задачу подсчета максимальной и минимальной суммы из четырех чисел, введенных пользователем. Он также обновляет значения mn и mx для представления минимального и максимального чисел соответственно.