QBasic Programming:

To Check whether the given number is Prime or Composite

CLS
INPUT "Enter any number"; N
C = 0
FOR I = 1  TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
 IF C = 2 THEN
PRINT "The given number is prime"
ELSE
PRINT "The given number is composite"
END IF
END