CLS
FACT = 1
INPUT "Introduce un numero entero...", N
IF N > 34 THEN
PRINT "Solo calcule factroiales menores de...", GOTO.; A1
FOR F = 1 TO N
FACT = FACT * 1
NEXT F
CLS
PRINT "El factorial de", N, "es", FACT
END IF