CLS
OPEN "Input.txt" FOR INPUT AS #1
INPUT #1, N, list$, pl
CLOSE
DIM place(N)
k = 1
FOR i = 1 TO LEN(list$)
        IF MID$(list$, i, 1) = " " THEN
                place(k) = VAL(sym$)
                sym$ = ""
                k = k + 1
        ELSE
                sym$ = sym$ + MID$(list$, i, 1)
        END IF

NEXT i
place(N) = VAL(sym$)
ans = 1
s = place(pl)
place(pl) = 0
DO UNTIL place(s) = 0
s = place(s)
ans = ans + 1
LOOP
OPEN "Output.txt" FOR OUTPUT AS #2
PRINT #2, ans
CLOSE
SYSTEM