ученик(марк, "5а").
ученик(ваня, "2б").
ученик(максим, "7в").
ученик(виталий, "10г").
ученик(даниил, "10а").
ученик(олег, "4б").
ученик(лёша, "11г").
ученик(богдан, "6д").
ученик(пётр, "8б").
ученик(влад, "7в").
увлекается(марк, футбол).
увлекается(ваня, хоккей).
увлекается(максим, рисование).
увлекается(виталий, музыка).
увлекается(даниил, аниме).
увлекается(олег, кино).
увлекается(лёша, музыка).
увлекается(богдан, футбол).
увлекается(пётр, рисование).
увлекается(влад, аниме).
список:-ученик(X,Y),увлекается(Z,W),X=Z,write(X),write(" "),write(W),nl,fail.
пары_список:-увлекается(X,Y),увлекается(Z,Q),Y=Q,X\=Z,write(X),write(" "),write(Z),nl,fail.