Посчитать количество точек, что находятся в каждом из треугольников

DEFSNG X-Y
DEFINT I-K
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM x(n)
DIM y(n)
 
FOR i = 1 TO n
   x(i) = 20 * RND - 10
   y(i) = 20 * RND - 10
NEXT i
 
k0 = 0
k1 = 0
k2 = 0
k3 = 0
k4 = 0
FOR i = 1 TO n
   IF ABS(x(i)) < y(i) THEN k1 = k1 + 1
   IF ABS(x(i)) < -y(i) THEN k2 = k2 + 1
   IF ABS(y(i)) < x(i) THEN k3 = k3 + 1
   IF ABS(y(i)) < -x(i) THEN k4 = k4 + 1
   IF ABS(y(i)) = ABS(x(i)) THEN k5 = k5 + 1
NEXT i
 
PRINT "k1 = "; k1
PRINT "k2 = "; k2
PRINT "k3 = "; k3
PRINT "k4 = "; k4
PRINT "k5 = "; k5
END

FOR i = 1 TO n
* *IF ABS(x(i)) < y(i) THEN k1 = k1 + 1 ' верхний
* *IF ABS(x(i)) < -y(i) THEN k2 = k2 + 1 ' это левый треугольник
* *IF ABS(y(i)) < x(i) THEN k3 = k3 + 1 ' правый
* *IF ABS(y(i)) < -x(i) THEN k4 = k4 + 1 ' нижний
* *IF ABS(y(i)) = ABS(x(i)) THEN k5 = k5 + 1 ' точка на диагонали
NEXT i

CLS
DEFSNG X-Y
DEFINT I-K
OPTION BASE 1
INPUT "Vvedite N"; n
xmin = 10
xmax = 400
ymin = 10
ymax = 400
SCREEN 12
RANDOMIZE TIMER
VIEW (10, 10)-(400, 400), , 2
WINDOW (xmin, ymin)-(xmax, ymax)
DIM x(N)
DIM y(N)
FOR i = 1 TO n
    x(I) = xmin * RND - xmax
    y(I) = ymin * RND - ymax
NEXT i
FOR i= 1 TO n
    PSET (x(i), y(i)), 1
NEXT i
LINE(10, 10)-(400, 400),2
LINE(10, 400)-(400, 10),2
k0 = 0