Domains nume=string prenume=string zi=integer luna=integer an=integer gen=char id=integer record=record(id,nume,prenume,zi,luna,an,gen) ls=string* DATABASE record(id,nume,prenume,zi,luna,an,gen). PREDICATES run CLAUSES record(1,"Ionescu","Laura",28,3,1986,'f'). record(2,"Panait","Andreea",8,12,1988,'f'). record(3,"Marin","Laura",23,3,1986,'f'). record(4,"Preda","Andreea",18,12,1986,'f'). record(5,"Albu","Corina",22,9,1988,'f'). record(6,"Albu","Adrian",12,4,1987,'m'). record(7,"Niculescu","Marius",13,7,1986,'m'). record(8,"Poenaru","Marius",17,11,1987,'m'). run:-findall(record(X,_,_,_,_,_,'m'),Y),write(Y).