//1.
duplazo(Atom, Resz):- name(Atom, Lista),
                      append(Eleje, Vege, Lista),
                      append([K|Kozep],Vege2,Vege),
                      memberchk(K, Kozep),
                      name(Resz,[K|Kozep]).

//2.
osszeado(Atom, Resz):- name(Atom, Lista),
                      append(Eleje, Vege, Lista),
                      append([K|Kozep],Vege2,Vege),
                      list_sum([K|Kozep],X),
                      X mod 2=:=0,
                      name(Resz,[K|Kozep]).
                      list_sum([],0).
list_sum([Head|Tail],TotalSum):-list_sum(Tail,Sum1),
                                TotalSum is Head+Sum1.