CLS

OPEN "H:\output.txt" FOR APPEND AS #1
' xi1,yi1,xi2,yi2,ti1,ti2
INPUT d$
INPUT p$
FOR n = 1 TO 10000
INPUT "введите количество рейсов ", n
IF n THEN n = n: PRINT n
IF ti1 = ti2 THEN PRINT "столкновение не избежно" ELSE PRINT "столкновения не произойдет"
NEXT
OPEN "H:\output.txt" FOR APPEND AS #1
IF ti1 = ti2 THEN PRINT "столкновение не избежно" ELSE PRINT "столкновения не произойдет" + "  " + "-1"

CLOSE #1

SYSTEM