Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным - Turbo Pascal

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

Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным из них.

Спойлер

Решение задачи: «Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным»

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

program blablabla;
Var a,b,c,max,min,srd:longint;
Begin
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;
srd:=a+b+c-min-max;
writeln(srd);
readln
End.

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

В данном коде на языке Turbo Pascal происходит следующее:

Объявляются переменные a, b, c, max, min и srd типа longint.
Считываются три числа с помощью функции readln().
Находится максимальное число среди a, b и c. Переменная max принимает значение большего из этих чисел.
Находится минимальное число среди a, b и c. Переменная min принимает значение меньшего из этих чисел.
Вычисляется среднее арифметическое из чисел a, b и c. Переменная srd принимает значение этого среднего.
Выводится значение переменной srd с помощью функции writeln().
Программа завершается с помощью функции readln().