program multip_table
      implicit none
      integer i,j,answer

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

      end