database manufacture(string,integer,real,integer,char) predicates getdetail readdetail goal clearwindow, getdetail, readdetail. clauses getdetail:- write(\"\\nenter the name of item =\"), readln(Itemname), write(\"\\nenter the item code =\"), readint(Itemcode), write(\"\\nenter the quantity =\"), readint(Itemqu), write(\"\\nenter the price of item =\"), readreal(Itemprice), write(\"\\nenter the grade of item =\"), readchar(Itemgrade), write(Itemgrade), char_int(Itemgrade,Val), Val >= 97, Val <=104, assertz(manufacture(Itemname,Itemcode,Itemprice,Itemqu,Itemgrade)), write(\"\\nDo you want to continue(y/n)= \"), readchar(Ans), write(Ans), Ans=\'y\', getdetail. getdetail. readdetail:- manufacture(Itemname,Itemcode,Itemprice,Itemqu,Itemgrade), retract(manufacture(Itemname,Itemcode,Itemprice,Itemqu,Itemgrade)), write(\"\\nItem Name = \",Itemname),nl, write(\"Item code = \",Itemcode),nl, write(\"Item quantity = \",Itemqu),nl, write(\"Item Price = \",Itemprice),nl, write(\"Item grade = \",Itemgrade),nl, fail. readdetail.