DECLARE FUNCTION h! (p AS SINGLE, q AS SINGLE, x0 AS SINGLE, y0 AS SINGLE)
CLS
OPEN "input.txt" FOR INPUT AS #1
        INPUT #1, line$
        DIM fline(4)
        k = 0
        FOR i = 1 TO LEN(line$)
                IF MID$(line$, i, 1) = " " THEN
                        k = k + 1
                        fline(k) = VAL(sym$)
                        sym$ = ""
                ELSE
                        sym$ = sym$ + MID$(line$, i, 1)
                END IF
        NEXT i
        xp = fline(1)
        yp = fline(2)
        xq = fline(3)
        yq = fline(4)
        N = VAL(sym$)
FOR i = 1 TO N
        INPUT #1, line$
        DIM sline(2)
        k = 0
        sym$ = ""
        FOR a = 1 TO LEN(line$)
                IF MID$(line$, a, 1) = " " THEN
                        k = k + 1
                        sline(k) = VAL(sym$)
                        sym$ = ""
                ELSE
                        sym$ = sym$ + MID$(line$, a, 1)
                END IF
        NEXT a
        xi(i) = sline(1)
        yi(i) = sline(2)
        ri(i) = VAL(sym$)
NEXT i
CLOSE
a = 0
b = 0
c = 0
IF yp = yq THEN
        y = yp
        FOR i = 1 TO N
                IF yi(i) >= y AND yi(i) - ri(i) <= y THEN a = a + 1
                IF yi(i) <= y AND yi(i) + ri(i) >= y THEN a = a + 1
                IF yi(i) > y AND yi(i) - ri(i) > y THEN b = b + 1
                IF yi(i) < y AND yi(i) + ri(i) < y THEN c = c + 1
        NEXT i
ELSEIF xp = yp THEN
        x = xp
        FOR i = 1 TO N
                IF xi(i) >= x AND xi(i) - ri(i) <= x THEN a = a + 1
                IF xi(i) <= x AND xi(i) + ri(i) >= x THEN a = a + 1
                IF xi(i) > x AND xi(i) - ri(i) > x THEN b = b + 1
                IF xi(i) < x AND xi(i) + ri(i) < x THEN c = c + 1
        NEXT i
ELSE
        'y=px+q
        p = (yp - yq) / (xp - xq)
        q = (xp * yq - xq * yp) / (xp - xq)
        FOR i = 1 TO N
                IF h(p, q, xi(i), yi(i)) < ri(i) THEN
                        a = a + 1
                ELSE
                        IF yi(i) > p * xi(i) + q THEN b = b + 1 ELSE c = c + 1
                END IF
        NEXT i
END IF
OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, a
IF b >= c THEN
PRINT #2, b
PRINT #2, c
ELSE
PRINT #2, c
PRINT #2, b
END IF
CLOSE
SYSTEM

FUNCTION h (p AS SINGLE, q AS SINGLE, x0 AS SINGLE, y0 AS SINGLE)
        x = (y0 + p * x0 - q) / 2 / p
        y = (y0 + p * x0 + q) / 2
        h = SQR((x - x0) ^ 2 + (y - y0) ^ 2)
END FUNCTION