QBASIC

WAP TO DISPLAY FACTORIAL.

CLS 

INPUT "Enter any number"; N

F = 1

FOR I = 1 TO N

F = F * 1

NEXT I

PRINT "Factorial"; F

END