В принципе задачу с помощью рекурсии я решить могу.
Проблема в том что не знаю как сделать, чтобы он выводил все контуры, а не ответ yes и первый попавшийся контур!
Domains
z=integer
Predicates
Rebro(Z,Z)
Kontur
Clauses
Rebro(1,2).
Rebro(2,3).
Rebro(2,4).
Rebro(2,5).
Rebro(3,4).
Rebro(3,5).
Rebro(3,6).
Rebro(5,6).
Rebro(6,2).
Rebro(5,1).
Kontur:-
Rebro(X,Y),
Rebro(Y,X),
C=X,
V=Y,
Write("Контур",C,V," "),
Write(V,C," "),
Read;
Rebro(X,Y),
Rebro(Y,D),
D1=D,
Rebro(D1,X),
C=X, B=Y, M=D,
Write("Контур",C,B," ", B,D," ",D,C," ").
Граф задан рёбрами... контур ищется по ним ...
Подскажите пожалуйста как сделать нормальный вывод контуров.