'ятовуємо факт у динамічній базі данных(X,«y»):-asserta(yes(X)).(X,«n»):-assertz(no(X)).(X,«q»):-asserta(maybe(X)).
% очищаємо пам'ять від фактів динамічної бази данных_all:-retract(yes(_)),delete_all._all:-retract(no(_)),delete_all._all:-retract(maybe(_)),delete_all._all.:-delete_all,,(«На питання відповідати (y-так, n-ні, q-не знаю). / n »), (X), (« Тип темпераменту: », X,« n »), (« Завершити роботу програми (y / n): »), readchar (Z), (Z), nl, =« y ». (1,10,12,« Експертна система: Тип темпераменту », 0,0,25, 80), («ЕС розроблена студенткою 542 класу»), nl, («Кучеренко Надією»), nl, («-------------------------------------------- »), nl,.
