CLS

FOR N = 1 TO 100

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN PRINT N,

NEXT N

END

USING SUB PROCEDURE

DECLARE SUB PRIME ( )

CLS

CALL PRIME

END

SUB PRIME

FOR N = 1 TO 100

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN PRINT N,

NEXT N

END SUB

## No Comments