rogram 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.