/*
Tri prijatelja Pera, Mika i Laza su zakupili trospratnicu. Jedan od njih je 
programer, drugi je arhitekta, a tre?i advokat. 
Svaki od njih trojice se uselio na po jedan od spratova. 
Svaki od njih je zaposlio po sekretaricu. 
Jedna od sekretarica je crvenokosa, druga je plavuša a tre?a crnka. 
Napisati Prolog predikat koji odre?uje na kom je spratu ko od prijatelja, 
šta je ?ije zanimanje i koju je sekretaricu zaposlio svaki od njih, ako znamo da:
- arhitekta se plaši visine, pa je odlu?io da uzme prostorije na prvom spratu;
- crnka je sasvim nezainteresovana za svog poslodavca i skoro svaki dan ide na 
ru?ak sa Perom, ina?e zakletim nezenjom;
- plavuša se svakog podneva penjala da bi ru?ala sa sekretaricom Mike;
- plavuša se ponekad penje da bi sa crnkom prodiskutovala o Perinim ljubavnim 
aferama;
- prošle srede je Lazu zabolela glava, pa je naredio sekretarici da si?e do 
advokatovog sprata i pozajmi aspirin.
*/
sekretarica(crnka,mika).   /* znamo da crnka nije Perina sekretarica */
sekretarica(crnka,laza).
sekretarica(plavusa,pera).  /* znamo da plavusa nije Mikina sekretarica */
sekretarica(plavusa,laza).

sprat1(crnka,drugi).        /* znamo crnka nije na prvom spratu */
sprat1(crnka,treci).
sprat1(plavusa,prvi).       /* znamo da plavusa nije na trecem spratu */
sprat1(plavusa,drugi).


sprat(mika,drugi).       /* znamo da nije prvi jer se do njega penje */
sprat(mika,treci).
sprat(laza,treci).        /* jer se od njega silazi */
sprat(laza,drugi).
sprat(pera,prvi).         /* jer su ova druga dvojica zauzeli drudi i treci */

sprat2(arhitekta,prvi).   /* dato nam je */
sprat2(programer,drugi).
sprat2(programer,treci).
sprat2(advokat,drugi).
sprat2(advokat,treci).


zanimanje(I,Z,W):-sprat(I,W), sprat2(Z,W).
sekretarica1(I,S,W):-sprat(I,W), sprat1(S,W), sekretarica(S,I).

istiSprat(I,S,Z,W):-zanimanje(I,Z,W), sekretarica1(I,S,W), write(I), tab(3),write('zanimanje:'), tab(3),write(Z),tab(3),  write('sekreterica mu je:'),   tab(3), write(S), tab(3), write('na spratu:'), tab(3), write(W), nl.

program2005013:-istiSprat(pera,Z,A,S),retract(sekretarica(_,pera)), istiSprat(P,L,K,J),write('laza je ovo sto je ostalo') .