dim s(10)
print "Enter 11 numbers."
for i = 0 to 10
  print i +1;
  input " => "; s(i)
next i
print
'Results
for i = 10 to 0 step -1
  print "f("; s(i); ") = ";
  r = f(s(i))
  if r > 400 then
    print "-=< overflow >=-"
  else
    print r
  end if
next i
end

function f(n)
  f = sqr(abs(n)) + 5 * n * n * n
end function