QBasic Programming

To display factorial of any number

CLS

INPUT”Enter any number”;N

F=1

FOR I=1 To N

F=F*I

NEXT I

PRINT”Factorial”;F

END