WAP to find weather 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