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