program multip_table
      implicit none
      integer i,j,answer

      do i=2,9
        do j=1,9
          answer = i*j
c         write(*,*) i,' x ',j, ' = ',answer
          write(*,100) i, j, answer
c         write(*,*) i,' x ',j, ' = ',i*J
        end do
        write(*,*) 
      end do
 100  format ('      ',I1,' x ',I1,' = ',I2)
      end