CLS
FACT = 1
PRINT "CALCULO DE UN NUMERO FACTORIAL"
INPUT "INTRODUCE UN ENTEROOO", NUM
A1:
IF NUM > 34 THEN
PRINT "CALCULE FACTORIALES MENORES DE"; ,GOTO A1
FOR I = 1 TO NUM
FACT = FACT * 1
NEXT I
CLS
PRINT
PRINT "ES EL FACTORIAL DE"; NUM; "ES"; FACT
END IF