выполнить в Visual Prolog
по одной работе программа уже написана, надо набрать текст и скрины вставить