30.    Найти все возможные пары элементов списка.
Аргументы: исходный список;
пара элементов (список).
?- pred([a,b,c,d,e],X).
X = [a,b] -> ;
X = [a,c] -> ;
X = [a,d] -> ;
X = [a,e] -> ;
X = [b,c] -> ;
X = [b,d] -> ;
X = [b,e] -> ;
X = [c,d] -> ;
X = [c,e] -> ;
X = [d,e] -> ;
no
?-

решение: 

pred([H|T],[A,B]):-any([H|T],A,T1),any(T1,B,T2).

any([H|T],H,T).
any([H|T],X,Y):-any(T,X,Y).

только нигде не могу найти что значит команада any, подскажите где посмотреть или скажте пожалуйста что она делает (желательно применительно к этому коду)

В Вашем же сообщении.   Там определен предикат any, и он перебирает все элементы списка.

Я заметил спасибо) просто я нигде не встречал такого предиката, и мне нужно его описание поподробней.

Добавлено через 5 минут и 16 секунд
И я могу назвать его не "any", а почти как угодно, хоть просто "а", все равно будет работать, а вот ход выполнения этих правил не совсем ясен