baza('Milankovic Milan','Kralja Nikole','Podgorica',jugo,bela,11242).
baza('Markovic Marko','Kralja Milosa','Beograd',jugo,bela,11232).

upit(X,Y,Z):-baza(X,Y,Z,jugo,bela,RB),RB mod 6=:=0.

stampa:-write('Trazeni vlasnici su:'),nl,nl,!,
         upit(X,Y,Z),write(X),write(Y),write(Z),
        fail.

/* Poziva se sa: stampa.  */