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.