Bugfixing project written in Prolog

I have a small project in prolog, but some answers he gives me are wrong Attached there is the documentation written in italian, but you can easily understand just reading all examples of the code. Attached there is also the project in prolog I need you fix the code