nachbar(italienisch,japanisch).
nachbar(japanisch,italienisch).
nachbar(franzoesisch,griechisch).
nachbar(griechisch,franzoesisch).

run:-X=[[hubert,_],[mueller,_],[schmitt,_],[vogel,_]],
        member([mueller,italienisch],X),
        member([_,japanisch],X),
        member([schmitt,S],X),member([vogel,V],X),nachbar(S,V),S\=griechisch,
        write(X).