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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.