Определить, принадлежит ли точка с координатами (x, y) образованному кругами кольцу

CLS
INPUT "Введите радиус меньшей окружности: ";r1
INPUT "Введите радиус большей окружности: "; r2
INPUT "Введите координаты точки: ";x, y
IF x ^ 2 + y ^ 2 > r1 ^ 2 AND x ^ 2 + y ^ 2 < r2 ^ 2 THEN
       PRINT "Точка принадлежит кольцу."
ELSE
       PRINT "Точка не принадлежит кольцу."
END IF

 CLS
 INPUT x1, y1
 INPUT x2, y2
 IF x1 = x2 OR y1 = y2 OR ABS(y2 - y1) = ABS(x2 - x1) THEN
 PRINT "yes"
 ELSE
 PRINT "no"
 END IF

 CLS
 INPUT n
 DIM x(n)
 RANDOMIZE TIMER
 PRINT "Исходный массив: "
 FOR i = 1 TO n
        x(i) = INT(RND * 199) - 100
        IF x(i) < 0 THEN so = so + x(i) ELSE k = k + 1
        PRINT x(i);
 NEXT i: PRINT
 PRINT "Сумма отрицательных элементов массива: "; so
 PRINT "Кол-во положительных элементов массива: "; k
 PRINT "Полученный массив: "
 FOR j = 1 TO n
        FOR i = 1 TO n - 1
                IF x(i) > x(i + 1) THEN SWAP x(i), x(i + 1)
        NEXT i
 NEXT j
 FOR i = 1 TO n
        PRINT x(i);
 NEXT i

 CLS
 INPUT n, t
 DIM x(n + 1, t)
 RANDOMIZE TIMER
 
 FOR j = 1 TO n
        FOR i = 1 TO t
               x(j, i) = INT(RND * 8) + 1
              PRINT x(j, i);
        NEXT i: PRINT
 NEXT j: PRINT
 
 FOR j = 1 TO n
        x(n + 1, j) = 1
        FOR i = 1 TO t
               x(n + 1, j) = x(n + 1, j) * x(i, j)
        NEXT i
 NEXT j
 
 FOR i = 1 TO t
        FOR j = 1 TO t - 1
                IF x(n + 1, j) < x(n + 1, j + 1) THEN
                        FOR q = 1 TO n + 1
                                SWAP x(q, j), x(q, j + 1)
                        NEXT q
                END IF
        NEXT j
 NEXT i
 
 FOR j = 1 TO n
        FOR i = 1 TO t
              PRINT x(j, i);
        NEXT i: PRINT
 NEXT j

CLS
INPUT a$
FOR i = 1 TO LEN(a$)
        IF MID$(a$, i, 1) = "#" THEN k = k + 1
NEXT i
b$ = MID$(a$, 1, LEN(a$) - k)
PRINT b$