program ch0918 implicit none integer :: t print *, ' ' print *, ' Twelve times table' print *, ' ' do t = 1, 12 print '('' '', i3, '' * 12 = '', i3)', t, t*12 end do end program ch0918