PROGRAM FACTORIAL
    INTEGER N, RESULT, I
    N = 5
    RESULT = 1
    DO I = 1 TO N
        RESULT = RESULT * I
    END DO
    PRINT RESULT
END PROGRAM