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