Даны два числа х и у.если х и у отрицательны.то каждое знач заменить его модулем ; если отриц только 1 то оба знач увеличить на 0,5 ; если оба знач неотрицательны то оба знач уменьшить в 10 раз.написать на qbasic

CLS
INPUT "x = ", x
INPUT "y = ", y
IF x < 0 AND y < 0 THEN
x = -x
y = -y
ELSE
    IF x < 0 XOR y < 0 THEN
    x = x + .5
    y = y + .5
    ELSE
    x = x - 10
    y = y - 10
    END IF
END IF
PRINT "x = "; x
PRINT "y = "; y