impar(N):- R is N mod 2, R == 1.
par(N):- R is N mod 2, R == 0.

filtrarV2(Pred, Lista, Resultado):-
   findall(X, (member(X, Lista), call(Pred, X)), Resultado).
