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

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