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

спасибо огромное

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.4342 111 187.29Введите три числа: 45 0 -1015 0 -3.33333333333333