Экспертные системы (Кочетков2)

Курсовая работа.Предмет:экспертные системы.
Вариант 13. Объём работы не менее 30 страниц.

Вот программа
% Copyright
implement main
open core
class facts
vopros:(integer,symbol,symbol).
up:(integer,integer,integer,symbol).
class predicates
run1:(integer,integer) nondeterm anyflow.
rez:(integer,symbol)determ ( i, o).
clauses
vopros(0, "нет", "Рассчитываете ли ВЫ").
vopros(1, "нет","Что для Вас важнее").
vopros(2, "да","Умеети ли").
vopros(3,"качество изображений","Вопросов больше нет") .
vopros(4, "нет не умею", "Вопросов больше нет").
up(0,1,0, "нет").
up(0,2,0, "да").
up(1,3,1, "качество изображений").
up(2,4,1, "нет не умею").
clauses
rez(R,R1) :- R=3,R1="CANON".
rez(R,R1) :- R=4,R1="Samsung".
run1(P11 ,1):-!, rez(P11,R1),stdio::write(P11,R1),stdio::nl.
run1(P11,_):-
vopros(P11,_,V),
stdio::write(V), stdio::nl,
up(_,P1,P2, stdio::read()),
run1(P1,P2).
run():- console::init(),
P1=0,P3=0,run1(P3,P1),fail.
run().
end implement main
goal
mainExe::run(main::run).