Thank you so much.
Try this
solut = Flatten[Table[Flatten[{a,b,c,y/.Solve[a*y==3+b/c,y]}],{a,1,3,1},{b,1,2,1},{c,1,2,1}],2]
followed by
solut[[6]]
which gives
{2, 1, 2, 7/4}
