REM Задача №4
CLS
OPEN "input.txt" FOR INPUT AS #1
OPEN "output.txt" FOR OUTPUT AS #2
INPUT #1, xp, yp, xq, yq, n
DIM xo(n), yo(n), ro(n)
FOR i = 0 TO n - 1
INPUT #1, xo(i), yo(i), ro(i)
NEXT i
FOR i = 0 TO n - 1
IF yp = yq THEN
IF (yo(i) + ro(i) >= yp AND yo(i) - ro(i) <= yp) THEN a = a + 1
END IF
IF xp = xq THEN
IF (xo(i) + ro(i) >= xq AND xo(i) - ro(i) <= xq) THEN a = a + 1
END IF
NEXT i
FOR i = 0 TO n - 1
IF yp = yq THEN
IF (yo(i) + ro(i) > yp AND yo(i) - ro(i) > yp) THEN b = b + 1
END IF
IF xp = xq THEN
IF (xo(i) + ro(i) > xq AND xo(i) - ro(i) > xq) THEN b = b + 1
END IF
NEXT i
c = n - a - b
IF b > c THEN : k = c: c = b: b = k
WRITE #2, a
WRITE #2, b
WRITE #2, c
SYSTEM