CLS PRINT "Factorial de un numero" INPUT "Diga el numero entero...", NUM IF NUM > 50 THEN PRINT "solo calcula numeros menores de 50" FOR I = 1 TO NUM FACT = (FACT * 1) NEXT I PRINT "El factorial es", FACT END