Qbasic program to display the factorial of digits.

Write a program to display the factorial of digits.

CLS
INPUT "Enter any number"; N
F =1
FOR I = 1 TO N
F = F * I
NEXT I
PRINT "Factorial="; F
END