посчитайте составить правило в Visual PrologНужно найти цену самого дорогого фрукта, не могу понять, как это можно сделать, можно через рекурсию или циклы, но у меня что-то не получается, посчитайте . Программа:domainsназвание=symbolстоимость=realpredicatesдорогой (стоимость)фрукты (название, стоимость)clausesфрукты (яблоко, 20). фрукты (груша, 15). фрукты (вишня, 40). фрукты (гранат, 70). фрукты (банан, 60). фрукты (слива, 30). дорогой (Ц): -фрукты (_,Ц1), фрукты (_,Ц), (Ц-Ц1)>0. %это правилоgoalдорогой (Ц).