!-----  Ex1_3: 累乗   -----
      INTEGER :: m, n
      PRINT*, "Input an Integer:"
      READ*, n
       m = n
       m = m*n ; PRINT*, m
       m = m*n ; PRINT*, m
       m = m*n ; PRINT*, m
       m = m*n ; PRINT*, m
      END