OPEN "input.txt" FOR INPUT AS #1 answ = -1 speed = 2 INPUT #1, n, m FOR i = 1 TO n INPUT #1, x1(i), y1(i), x2(i), y2(i), t1(i), t2(i) NEXT FOR i = 0 TO n beg(i) = ((x1(i)) ^ 2 + (y1(i)) ^ 2) ^ .5 end(i) = ((x2(i)) ^ 2 + (y2(i)) ^ 2) ^ .5 if beg(i)-end(i) > 0 then v(i) = 1 if beg(i)-end(i) < 0 then v(i) = -1 NEXT t = t + .0001 WEND CLOSE "input.txt" OPEN "output.txt" FOR OUTPUT AS #1 PRINT #1, answ SYSTEM