:-dynamic(masina/2).
masina(mercedes,2000).
masina(bmw,2005).
masina(dacia,2013).
masina(renault,2010).

menu:-nl,write('1. Adauga masina'),nl,
    write('2. Sterge masina'),nl,
    write('3. Afisare masini'),nl,
    write('4. Afisare masini dupa anul X'),nl,
    write('5. Iesire'),nl,
    read(X),menu(X),!.

menu(1):-read(X),read(Y),
    not(masina(X,Y)),
    assert(masina(X,Y)),menu;
    write('Masina exista deja!'),nl,menu.
menu(2):-read(X),read(Y),
    masina(X,Y),
    retract(masina(X,Y)),menu;
    write('Masina inexistenta!'),nl,menu.
menu(3):-findall(X,masina(X,_),R),write(R),nl,menu.
menu(4):-read(N),findall([X,Y],masina(X,Y>N),R1),write(R1),nl,menu.
menu(5):-!.

:-dynamic(muzeu/3).


op:-nl,write('1.Adauga Muzeul'),nl,
    write('2.Sterge Muzeul'),nl,
    write('3.Afisare toate muzeele'),nl,
    write('4.Afisare dupa pretul mai mare'),nl,
    write('5.Sorteaza dupa timp'),nl,
    write('6.Avort'),nl,
    read(X),op(X),!.
op(1):-write('Adauga muzeul'),
read(X),
    (   muzeu(X,_,_)->write('Exista deja'),menu;
    write('Pret bilet:\n'),
    read(P),
    write('Timp de vizitare:\n'),
        read(T),
        assert(muzeu(X,P,T)),
        menu).
op(2):-write('muzeul ce trebuie sters'),
    read(X),
    (   not(muzeu(X,_,_))->write('Muzeul nu exista'),menu;
            retract(muzeu(X,_,_)),menu).
op(3):-write('Afisarea tuturor muzeelor\n'),
findall([X,P,T],muzeu(X,P,T),R),
    write(R),
    write('\n'),menu.
op(4):-write('afiseaza dupa pretul mai mare\n'),
    read(P1),
    findall([X,P,T],(muzeu(X,P,T),P>P1),R),
            write(R),
            menu.
op(5):-write('sorteaza dupa timpul de vizitare\n'),
    findall([X,T],muzeu(X,_,T),R),
    sort(2,@<,R,Sorted),
    write(Sorted),
    menu.
op(6):-abort,!.