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

var x, y, z : integer;
begin
write('vvedite x=');readln(x);
write('vvedite y=');readln(y);
write('vvedite z=');readln(z);
if (x<y) and (y<z)or (x>y)and (y>z) then
begin x:=x*2; y:=y*2; z:=z*2;
end
else
begin x:=-x; y:=-y; z:=0-z;
end;
writeln('x=',x);
writeln('y=',y);
writeln('z=',z);
readln;
end.