program multip_table

        implicit none
        integer i , j      

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

        end