Program If14;
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;
WriteLn('Наименьшее ', Min, ' Наибольшее ', Max)
End.