Task2.9

ученик("Антон", 1).
ученик("Анна", 3).
ученик("Мария", 1).
ученик("Никита", 2).
ученик("Олег", 1).

увлекается("Антон", футбол).
увлекается("Анна", футбол).
увлекается("Мария", бадминтон).
увлекается("Никита", бадминтон).
увлекается("Олег", бадминтон).

ученики(Класс):-ученик(Имя, Класс), увлекается(Имя, Чем), write(Имя), write(" увлекается "), write(Чем), nl, fail.
пара(Класс1):-ученик(Имя1, Класс1), увлекается(Имя1, бадминтон), ученик(Имя2, Класс2), Класс1\==Класс2, увлекается(Имя2, бадминтон),
    write(Имя1), write("  "), write(Имя2), nl, fail.