Каждый элемент массива F(10) разделить на заданное число x — QBasic(Бейсик)

REM program
CLS
DIM F(10)

INPUT "Enter x: ", x

IF x <> 0 THEN
    FOR i = 1 TO 10
        F(i) = (INT(RND * 100) + 1)
        PRINT "F(", i, ") = ", F(i)
        PRINT "Relust: ", F(i) / x
    NEXT i
END IF

END