Factorial

CLS

INPUT " Enter any number ";N

F = 1

FOR I = 1 TO N

F = F * I

NEXT I

PRINT " Factorial";F

END