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