Вычислить S=5!/x- Basic(Бейсик)

REM program
CLS
factorial = 1
INPUT "Enter x: ", x
FOR i = 1 TO 5
        factorial = factorial * i
NEXT i
PRINT "Result: ", factorial / x
END