program ex99

         implicit none
         integer :: a , b      

             do a=1 , 9   
                do b=1 , 9 
                   write(*,*)a ,'          *', b ,'=', a * b
                end do
            end do

            stop 
        end program ex99