REM Задача №2
CLS
OPEN "input.txt" FOR INPUT AS #1
OPEN "output.txt" FOR OUTPUT AS #2
INPUT #1, n
DIM a$(n), b$(n), c%(n)
FOR i = 0 TO n - 1
INPUT #1, a$(i)
NEXT i
FOR i = 0 TO n - 1
b$(i) = LEFT$(a$(i), 1)
c%(i) = VAL(MID$(a$(i), 3, 2))
p = p + ABS(c%(i))
NEXT i
p = p
DIM x1%(p), y1%(p), z1%(p)
FOR i = 0 TO n - 1
FOR d = 1 TO ABS(c%(i))
IF (b$(i) = "X" OR b$(i) = "x") AND (c%(i) > 0) THEN
x = x + 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
IF (b$(i) = "Y" OR b$(i) = "y") AND (c%(i) > 0) THEN
y = y + 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
IF (b$(i) = "Z" OR b$(i) = "z") AND (c%(i) > 0) THEN
z = z + 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
IF (b$(i) = "X" OR b$(i) = "x") AND (c%(i) < 0) THEN
x = x - 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
IF (b$(i) = "Y" OR b$(i) = "y") AND (c%(i) < 0) THEN
y = y - 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
IF (b$(i) = "Z" OR b$(i) = "z") AND (c%(i) < 0) THEN
z = z - 1
s = s + 1
x1%(s) = x
y1%(s) = y
z1%(s) = z
END IF
NEXT d
NEXT i
d = 0
FOR i = 0 TO p
FOR s = 0 TO p
IF x1%(i) = x1%(s) AND y1%(i) = y1%(s) AND z1%(i) = z1%(s) AND s <> i THEN d = d + 1
NEXT s
NEXT i
WRITE #2, d / 2
CLOSE #1
CLOSE #2
SYSTEM