Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5;2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . Помогите , завтра зачет.

var
  x, y: real;

begin
  readln(x, y);
  if ((x   begin
    x := abs(x);
    y := abs(y);
  end
  else
  if (((x = 0)) or ((x >= 0) and (y   begin
    x += 0.5;
    y += 0.5;
  end
  else
  if (((0.5   begin
    x /= 10;
    y /= 10;
  end;
  writeln(x, , y);
end.