CLS
a = 0
b = 0
c = 0
OPEN "input.txt" FOR INPUT AS #1
OPEN "output.txt" FOR OUTPUT AS #2
INPUT #1, xp
INPUT #1, yp
INPUT #1, xq
INPUT #1, yq
INPUT #1, n
REDIM x(n), y(n), r(n)
FOR i = 1 TO n
INPUT #1, x(i)

INPUT #1, y(i)
INPUT #1, r(i)
NEXT i
IF xp = xq OR yp = yq THEN  ELSE GOTO 21: REM A nado "Goto 40".
IF xp = xq THEN  ELSE GOTO 20
21 FOR i = 1 TO n
IF x(i) + r(i) < xp THEN b = b + 1
IF x(i) - r(i) > xp THEN c = c + 1
NEXT i
GOTO 30
20 FOR i = 1 TO n
IF y(i) + r(i) < yp THEN b = b + 1
IF y(i) - r(i) > yp THEN c = c + 1
NEXT i
30 a = n - (b + c)
GOTO 50
40 REM Takogo varianta poka net .
50 PRINT #2, a
IF b <= c THEN PRINT #2, b: PRINT #2, c ELSE PRINT #2, c: PRINT #2, b
CLOSE
SYSTEM