Даны три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное- Pascal(Паскаль)

var x,y,z: integer; //твои переменные
rplus, rminus: boolean; // переменные для проверки возростания или убывания
begin
 {вводим данные x,y,z}
  ...
 //припускаем что числа не упорядоченые
 rplus:=false;
 rminus:=false;
 
 //блок проверки возростания
 if (x<y) and (y<z) then rplus:=true;
 //блок проверки убывания
 if (x<y) and (y<z) then rplus:=true;
 
 //выполнение условия задачи
 if rplus and rminus then 
   begin 
       x:=2*x;
       y:=2*y;
       z:=2*z;
   end
 else 
   begin
       x:=-x;
       y:=-y;
       z:=-z;
   end;
...
{выводим полученный результат}
end.