Как решить задачу?
type TЭ = real;
список= ^звено;
звено: record элем: TЭ;
след: список
end;
Описать и проверить процедуру, которая вставляет в непустой список L, элементы которого упорядочены по убыванию, новый элемент Е так, чтобы сохранялась упорядоченность.
Заранее спасибо!