在prolog中使用变量作为参数

Question

我正在尝试使用Prolog（amzi）制作自动售货机逻辑，但处理参数非常困难。到目前为止，我有这个：

drink(soda,1).
drink(coffee,4).
drink(tea,3).
drink(mango,7).
drink(apple,5).

machine:-
   write('choose a drink: pepsi, coffee, tea, mango'),
   nl,
   read(X),
   nl,
   drink(X,C).

我得到的输出是：

?- machine.
choose a drink: pepsi, coffee, tea, mango
mango.

yes

我想在输入饮品名称之后得到饮料的价格，以及我如何处理这个饮料的任何提示？

P.S。在机器（X，Y）之类的东西是不合逻辑的，并在查询开头键入饮料的名称，因为客户应该看到列表然后选择饮料。