Вычисления факториала числа, оформленная в виде функции- QBasic(Бейсик)

DECLARE FUNCTION fac#(n)
  CLS
  PRINT fac#(5)
 
FUNCTION fac#(n)
  s# = 1
  FOR i# = 1 TO n
   s# = s# * i#
  NEXT
fac# = s#
END FUNCTION