gost( 'Marko Markovic' , srbija_i_crna_gora, beograd, izvorska_54, '1201207', 20 ).
gost( 'Mario del Monako', italija, rim, via_argenta_78, '74767843486567', 32 ).
gost( 'Petar Petrovic', srbija_i_crna_gora, cetinje, njegoseva_21, 'a595952345', 42 ).
gost( 'Milan Milanovic', srj,pirot, sindjeliceva_11, '1706968210037', 31 ).
gost( 'Zarko Zarkovic', srj, beograd, nemanjina_33, '1209945230045', 5 ).
gost('Dimitrije Dimitrijevic', srj, beograd, krusevdolska_86, '1201207', 13 ).

upit_a(X) :- gost(X,italija,_,_,_,Y),Y>30.

stampa_a :- upit_a(X),nl,write(X),fail.
stampa_a.

upit_b(X) :- gost(X,srj,_,_,_,_).

stampa_b :- write('Gosti iz Savezne Republike Jugoslavije:'),nl,nl,
	    upit_b(X),nl,write(X),fail.
stampa_b.