Pascal.Даны три переменные вещественного типа: A, B, C. Если их значения упо- рядочены по возрастанию или убыванию, то удвоить их; в противном слу- чае заменить значение каждой переменной на противоположное. Вывести новые значе...

var   a, b, c: real; begin   Write('Введите через пробел три числа -> ');   Readln(a, b, c);   if ((a > b) and (b > c)) or ((a < b) and (b < c)) then   begin a := 2 * a; b := 2 * b; c := 2 * c end   else   begin a := -a; b := -b; c := -c end;   writeln('Новые значения чисел: ', a, ', ', b, ', ', c) end. Тестовое решение: Введите через пробел три числа -> 18 5 -3 Новые значения чисел: 36, 10, -6 Введите через пробел три числа -> -6 0 5 Новые значения чисел: -12, 0, 10 Введите через пробел три числа -> 11 20.7 4.9 Новые значения чисел: -11, -20.7, -4.9