CLS
DO
INPUT "N (2<=N<=100)"; n
LOOP UNTIL n > 2 AND n <= 100
FOR i = 2 TO n
k = 0
FOR j = 2 TO i - 1
IF i MOD j = 0 THEN k = 1
NEXT
IF k = 0 THEN s = s + 1
NEXT
PRINT "kol-vo prostih chisel do"; n; ":"; s
CLS
DO
INPUT "N (2<=N<=100)"; n
LOOP UNTIL n > 2 AND n <= 100
FOR i = 2 TO n
k = 0
FOR j = 2 TO i - 1
IF i MOD j = 0 THEN k = 1
NEXT
IF k = 0 THEN s = s + 1
NEXT
PRINT "kol-vo prostih chisel do"; n; ":"; s