WAP to find / print whether a number is prime or composite

Qbasic program to find / print whether a 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 N; "IS PRIME NUMBER"
 ELSE
 PRINT N; "IS COMPOSITE NUMBER"
 END IF
 END

USING SUB

DECLARE SUB PRIME(N)
 CLS
 INPUT "ENTER ANY NUMBER"; N
 CALL PRIME(N)
 END
 
 SUB PRIME(N)
 C = 0
 FOR I = 1 TO N
 IF N MOD I = 0 THEN C = C + 1
 NEXT I
 IF C = 2 THEN
 PRINT N; "IS PRIME NUMBER"
 ELSE
 PRINT N; "IS COMPOSITE NUMBER"
 END IF
 END SUB