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.