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

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