Program To find prime factors of a number input (Qbasic Code)
CLS
INPUT "ENTER ANY NUMBER"; N
FOR I = 1 TO N
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF N MOD I = 0 AND C = 2 THEN PRINT I;
NEXT I
PRINT "The prime factors of given number";
END