Fact

DIM N AS INTEGER, I AS INTEGER, F AS LONG
INPUT "Input N: ", N
IF (N = 0) OR (N = 1) THEN
    F = 1
ELSE
    F = 1
    FOR I = 1 TO N
        F = F * I
    NEXT I
END IF
PRINT F