Турбо пролог

[ksesh]

Не разбираюсь вообще в данной теме. Хотя сама суть программы относительно ясна.
1. Написать программу для удаления из списка всех элементов, равных 0. Например: список [1, 0, 2, 0, 0, 3] преобразуется в список [1, 2, 3].
2. Вывести бинарное дерево на экран в виде дерева.
Прошу, если можно с объяснением

[N.i.k.o.l.a.y.]

никто не помог и мне за бесплатно тоже не очень охота делать, хоть это и просто) так что отпиши LNSprogrammers@yandex.ru

[rrrFer]

p([], []):-!.
p([0|T], TR):-
  !, p(T, TR).
p([H|T], [H|TR]):-
  p(T, TR).