Даны числа А,В, и С . Меньшее из них заменить полусуммой двух других

var   a, b, c: real; begin   readln(a, b, c);   if (min(a, min(b, c)) = a) then     a := (b + c) / 2   else     if (min(a, min(b, c)) = b) then       b := (a + c) / 2     else       if (min(a, min(b, c)) = c) then         c := (b + a) / 2;   writeln(a, ' ', b, ' ', c); end.