Código Factorial De Un Número

EL FACTORIAL DE UN NÚMERO
Este programa permite calcular el factorial de un numero, para ello debemos ingresar un valor . Solo utilizamos un modulo (Mmain).

MODULO MMain
PUBLIC SUB Main()
DIM f, i, l AS Integer
DIM nombre, res AS String
PRINT "<<<>>>"
PRINT "Ingrese un valor"
INPUT l
f = 1
FOR i = 2 TO l
f = f * i
NEXT
PRINT "El factorial del numero ingresado es !", f
END