      program iofl
      j=10
      do i = 1 , 25
         j=j*3
         print * , i , j
      enddo
      end
