Помогите со списками, 3 задачи со списками F1 срочно Опции

[Sindzi]

Вот сами задачи:
В задачах 1-3 использовать однонаправленные списки типа:
type te = .......; { тип элементов списка }
sp = ^el;
el = record d :te; n :sp; end;
var L : sp; E : te;
1. Описать функцию, которая находит сумму двух последних элементов списка L.
2. Описать функцию, которая определяет, имеются ли в списке L равные элементы.
3. Описать процедуру, которая в списке L из каждой группы подряд идущих равных элементов оставляет только один.
Помогите плиз