Нахождение суммы большего и меньшего из трех чисел - Pascal ABC

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

Задачи по теме: Условный оператор if. Составной оператор Написать программу нахождения суммы большего и меньшего из трех чисел.

Решение задачи: «Нахождение суммы большего и меньшего из трех чисел»

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

var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b)  then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.

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

Создаются три переменные типа integer: a, b и c, которые будут использоваться для хранения введенных пользователем чисел.
Создаются три переменные типа integer: min, max и s, которые будут использоваться для хранения минимального, максимального и суммы чисел соответственно.
Выводится сообщение Введите числа и с помощью функции readln() считываются три числа с консоли.
Используется условное выражение if для определения максимального числа. Если введенное число больше, чем значение переменной a, то max присваивается значение a, иначе max присваивается значение b. Аналогично определяется минимальное число.
Используется условное выражение if для определения суммы максимального и минимального числа. Если введенное число больше max, то min присваивается значение a, иначе min присваивается значение b. Если введенное число меньше min, то min присваивается значение c. Аналогично определяется сумма минимального и максимального числа.
Итоговая сумма максимального и минимального числа сохраняется в переменной s.
Выводится сообщение Сумма максимального и минимального числа =, за которым следует значение переменной s, вычисленное как сумма максимального и минимального чисел.