ma_rad(petr,kvetiny).
ma_rad(petr,ivana).
ma_rad(petr,televize).
ma_rad(jan,jitrnice).
ma_rad(jan,televize).
ma_rad(vera,X) :- ma_rad(jan,X).