Qbasic program to display the FACTORIAL of the entered number.

CLS
INPUT "enter a number:", A
F = 1
FOR I = 1 TO A
F= F* I
NEXT I
PRINT "factorial of the number is:", F
END