Pascal(141130) Срочно!

Лабораторные работы по программированию в Pascal ABC.
Нужно сделать 3 задания.
Срок: 08.00 по Мск, не позднее.
1) Составить программу, которая находит среднее арифметическое отрицательных элементов списка.
2) Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов оставляет только один.
3) Написать программу формирования и печати двусвязного списка Ваших друзей с указанием их телефонов и адресов. Признаком окончания списка является нулевое значение номера телефона. Распечатать список в обратном порядке (печать с конца списка до его начала). Посчитать количество элементов списка.