Даны три числа. Найти сумму двух наибольших из них — Pascal(Паскаль)

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.