то есть число, расположенное между наименьшим и наибольшим.
program If13;
Var
A, B, C, Min, Max: Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A, B, C);
{ --- Находим максимальный элемент --- }
If (A > B) And (A > C) Then
Max := A
Else If (B > A) And (B > C) Then
Max := B
Else If (C > A) And (C > B) Then
Max := C;
{ --- Находим минимальный элемент --- }
If (A < B) And (A < C) Then
Min := A
Else If (B < A) And (B < C) Then
Min := B
Else If (C < A) And (C < B) Then
Min := C;
If (A > Min) And (A < Max) Then
WriteLn('Среднее: ', A)
Else If (B > Min) And (B < Max) Then
WriteLn('Среднее: ', B)
Else If (C > Min) And (C < Max) Then
WriteLn('Среднее: ', C);
End.