OPEN "INPUT.TXT" FOR INPUT AS #1 INPUT #1, N, Q DIM X1(10000) AS INTEGER DIM Y1(10000) AS INTEGER DIM X2(10000) AS INTEGER DIM Y2(10000) AS INTEGER DIM T1(10000) AS INTEGER DIM T2(10000) AS INTEGER FOR I = 1 TO N INPUT #1, X1(I), Y1(I), X2(I), Y2(I), T1(I), T2(I) NEXT I CLOSE #1 FOR I = 1 TO N V(I) = (X2(I) - X1(I)) / (T2(I) - T1(I)) NEXT I TMI = T1(1) FOR I = 1 TO N IF T1(I) < TMI THEN TMI = T1(I) NEXT I TMA = T2(1) FOR I = 1 TO N IF T2(I) < TMA THEN TMA = T2(I) NEXT I FOR I = 1 TO N S(I) = X1(I) NEXT I FOR P = TMI TO TMA SOOB = -1 FOR I = 1 TO N IF (P >= T1(I)) AND (P <= T2(I)) THEN S(I) = V(I) * P NEXT I FOR I = 2 TO N R = S(I) - S(I - 1) IF R <= Q THEN SOOB = P GOTO KON: END IF NEXT I NEXT P KON: OPEN "OUTPUT.TXT" FOR OUTPUT AS #2 PRINT #2, SOOB CLOSE #2 SYSTEM