Найти вероятность выхода точки из шара

FOR j = 1 TO 1000
x = 0
y = 0
z = 0
  FOR i = 1 TO 100
    Var = INT(RND * 6) + 1
    
    SELECT CASE Var
      CASE 1
        x = x + 1
      CASE 2
       x = x - 1
      CASE 3
        y = y + 1
      CASE 4
        y = y - 1
      CASE 5
        z = z + 1
      CASE 6
       z = z - 1
    END SELECT
    IF x > 10 OR y > 10 OR z > 10 THEN
     n = n + 1
      EXIT FOR
    END IF
    
  NEXT
NEXT
n$ = STR$(n / 10)
 
PRINT "Probability = " + n$ + "%"

IF SQR(x^2 + y^2 + z^2) > 10 THEN

DIM i AS INTEGER, j AS INTEGER, n AS INTEGER, v AS INTEGER
DIM x AS INTEGER, y AS INTEGER, z AS INTEGER
RANDOMIZE TIMER
FOR j = 1 TO 1000
    x = 0
    y = 0
    z = 0
    FOR i = 1 TO 100
        v = INT(RND * 6) + 1
        SELECT CASE v
            CASE 1: x = x + 1
            CASE 2: x = x - 1
            CASE 3: y = y + 1
            CASE 4: y = y - 1
            CASE 5: z = z + 1
            CASE 6: z = z - 1
        END SELECT
    NEXT i
    IF SQR(x ^ 2 + y ^ 2 + z ^ 2) > 10 THEN n = n + 1 
NEXT j
PRINT "Probability = " + STR$(n / 10) + "%"

    IF SQR(x ^ 2 + y ^ 2 + z ^ 2) > 10 THEN n = n + 1: EXIT FOR
NEXT i, j