List1={a,b,c,d};

Output1= a
Output2= a*b
Output3= a*b*c
Output4= a*b*c*d

list1 = {a, b, c, d};

Rest[FoldList[Times, 1, list1]]

Scan[Print, %]