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

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.