do i = 1, 9 do j = 1, 9 write(*, 100) i, j, i * j end do end do 100 format(i1, ' + ', i1, ' = ', i2) end