Вычислить а) S=5! / x. — QBasic(Бейсик)

REM program
CLS
factorial = 1

INPUT "Enter x: ", x

FOR i = 1 TO 5
    factorial = factorial * i
NEXT i

PRINT "Result: ", factorial / x

END