Wap to display factorial

CLS
REM' A PROGRAM TO FIND THE FACTORIAL OF A NUMBER
INPUT "ENTER A NUMBER:", N
F = 1
FOR I = 1 TO N
    F = F * I
NEXT I
PRINT "THE FACTORIAL IS", F
END