factorial

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