CLS INPUT "Diga un numero", N IF N = 0 THEN PRINT "El factorial de cero es 1" IF N < 0 THEN PRINT "No esta definido" IF N > 0 THEN PRINT "El factorial del numero es" A = 1 FOR I = 1 TO N A = A * I NEXT I PRINT A END