finalLista([],_,[]).
finalLista(L, 0, L).
finalLista([Primero|Resto], N, Resultado):- N > 0, A is N - 1, finalLista(Resto, A, Resultado).