C FLOWTRAN PROGRAM TO COMPUTE FACTORIAL
      DIMENSION A(100)
      READ 1, N
1     FORMAT(I5)
      FACT = 1.0
      DO 10 I = 1, N
      FACT = FACT * I
10    CONTINUE
      WRITE 2, FACT
2     FORMAT(F10.2)
      STOP
      END
