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

Question

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

Answer 1

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.