среди трёхзначных чисел найти и вывести простые числа. Программа для QBASIC

CLSFOR i = 101 TO 999 STEP 2   p = 1: j = 3   DO WHILE (j <= SQR(i)) AND (p <> 0)      p = ((i MOD j) <> 0)      j = j + 2   LOOP   IF p <> 0 THEN PRINT i;NEXT iENDРезультат выполнения программы: 101  103  107  109  113  127  131  137  139  149  151  157  163  167  173  179 181  191  193  197  199  211  223  227  229  233  239  241  251  257  263  269 271  277  281  283  293  307  311  313  317  331  337  347  349  353  359  367 373  379  383  389  397  401  409  419  421  431  433  439  443  449  457  461 463  467  479  487  491  499  503  509  521  523  541  547  557  563  569  571 577  587  593  599  601  607  613  617  619  631  641  643  647  653  659  661 673  677  683  691  701  709  719  727  733  739  743  751  757  761  769  773 787  797  809  811  821  823  827  829  839  853  857  859  863  877  881  883 887  907  911  919  929  937  941  947  953  967  971  977  983  991  997