Если сумма трёх попарно различных действительных чисел х,у,z меньше единицы , то наименьшее из этих трёх заменитиь полусуммой двух других; в противном случае заменить меньшее из х и у двух оставшихся чисел — Pascal(Паскаль)

var
  x, y, z: real;

begin
  readln(x, y, z);
  if x + y + z < 1 then
  begin
    if (x < y) and (x < z) then
      x := (y + z) / 2
    else if (y < z) then
      y := (x + z) / 2
    else
      z := (x + y) / 2;
  end
  else if (x < y) then
    x := (y + z) / 2
  else
    y := (x + z) / 2;
  writeln(x:4:2, y:4:2, z:4:2);

end.