SerRom_1

DECLARE FUNCTION Fact# (I AS DOUBLE)
DIM T AS DOUBLE, Res AS DOUBLE, I AS DOUBLE, N AS DOUBLE
INPUT "Input N: ", N
Res = 1: T = 1
FOR I = 1 TO N
    Res = Res * (3 + (1 / Fact#(T)) + Fact#(T + 1) ^ 2)
NEXT I
PRINT Res

FUNCTION Fact# (I AS DOUBLE)
    DIM II AS DOUBLE, R AS DOUBLE
    R = 1
    IF I = 1 THEN
        Fact# = 1
        EXIT FUNCTION
    ELSE
        FOR II = 2 TO I
            R = R * II
        NEXT II
        Fact# = R
    END IF
END FUNCTION