Thanks Very Much. I tried to run your code but did not work. I tried to modify it a bit and it finally it worked.
cartesian_product([H|T],B):- cartesian_product_1(H,B),
nl,cartesian_product(T,B).
cartesian_product_1(H,[]).
cartesian_product_1(H,[H1|T1]):- write(H),
write(H1),write('...