LET t0=TIME
LET C=0
FOR m=1 TO 2500
   LET n=-2*m+5000
   IF n>0 AND n=INT(n) THEN
      LET C=C+1
      PRINT C;":  (";m;",";n;")"
   END IF
NEXT m
PRINT
PRINT "ŒvŽZŽžŠÔ=";TIME-t0
END