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