X = 0
OPEN "INPUT.TXT" FOR INPUT AS #1
 DO WHILE NOT (EOF(1))
 X = X + 1: INPUT #1, AX
 LOOP
FOR Z = 1 TO (X - 2)
NEXT Z
OPEN "OUTPUT.TXT" FOR OUTPUT AS #2
WRITE #2, (AX - 1)
CLOSE

SYSTEM