Даны три числа , если они расположены по возрастанию, то увеличить каждое в три раза, если по убыванию, то уменьшить каждое в три раза, иначе - найти их сумму.

Var
  a,b,c:real;
begin
  Write(Введите три числа: ); Readln(a,b,c);
  if (b>a) and (c>b) then Writeln(3*a, ,3*b, ,3*c)
  else
    if (a>b) and (b>c) then Writeln(a/3, ,b/3, ,c/3)
    else Writeln(Сумма равна ,a+b+c)
end.

Тестовые решения:
Введите три числа: 14 17.8 -6
Сумма равна 25.8

Введите три числа: 14 37 62.43
42 111 187.29

Введите три числа: 45 0 -10
15 0 -3.33333333333333