Даны три переменные вещественного типа: a, b, c. если их значения по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. вывести новые значения переменных a, b, c. как решить данный пример используя только тернарный оператор?

Var  a, b, c: real;
begin 
write('Введите A, B и C: '); 
readln(a, b, c); 
if (b < c) and (a < b) 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.