CLS
OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n
DIM a(n): DIM b(100)
FOR c = 1 TO n
INPUT #1, a(c)
NEXT c
INPUT #1, z
CLOSE
'PRINT z
FOR m = 1 TO n
IF a(m) = z THEN a(m) = 0: b(z) = a(z): a(z) = z: q = q + 1:
'IF a(z) = 0 THEN q = 0: GOTO 100
z = b(z)
NEXT m
100 OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, q
CLOSE
SYSTEM