FUNCTION f (n)
    LET f = SQR(ABS(n)) + 5 * n ^ 3
END FUNCTION

DIM s(1 TO 11)
PRINT "enter 11 numbers"
FOR i = 1 TO 11
    PRINT STR$(i); " => ";
    INPUT s(i)
NEXT i

PRINT
PRINT "--------------------"

LET i = i - 1
DO
   PRINT "f("; STR$(s(i)); ") = ";
   LET x = f(s(i))
   IF x > 400 THEN
      PRINT "-=< overflow >=-"
   ELSE
      PRINT x
   END IF
   LET i = i - 1
LOOP UNTIL i < 1
END