закончил основную работу по пролог-программе, остается сделать предикат по заданию в кр