product(item1,3000,4.8,20).
product(item2,1800,4.2,200).
product(item3,5000,4.9,5).
product(item4,2500,4.5,80).

score(Name, Score) :-
    product(Name, Price, Rating, Reviews),
    Score is Rating * Reviews / Price.

main :-
    forall(product(Name, Price, Rating, Reviews),
        (
            score(Name, Score),
            format('~w price=~w rating=~w reviews=~w score=~2f~n',
                   [Name, Price, Rating, Reviews, Score])
        )
    ),
    halt.

:- initialization(main).