Program If15;
Var
A, B, C, Mn, Mx, Sr: Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A, B, C);
Mn := A;
If B < Mn Then
Mn := B;
If C < Mn Then
Mn := C;
Mx := A;
If B > Mx Then
Mx := B;
If C > Mx Then
Mx := C;
Sr := A + B + C - Mn - Mx;
WriteLn('Произведение двух наибольших = ', Mx + Sr);
End.