Подсчитать число точек, находящихся внутри круга радиусом R с центром в начале координат, координаты заданы массивами X(50), Y(50) — Basic(Бейсик)

DIM x(50), y(50)
CLS
INPUT "vvedite radius "; r
RANDOMIZE TIMER
INPUT "vvedite kol-vo tochek";t
FOR i = 1 TO t
x(i) = INT(RND * 50)
y(i) = INT(RND * 50)
PRINT "a("; i; ")="; x(i); ";"; y(i); " ";
NEXT
FOR i = 1 TO t
GOSUB radius
IF rad <= r THEN kol = kol + 1
NEXT
PRINT
PRINT "v kruge "; kol; " tochek"
END
radius:
rad = SQR(x(i) ^ 2 + y(i) ^ 2)
RETURN