{Винарский 16.23_а}
type
  list=^node;
  node=record
        elem: real;
        next: list;
       end;

procedure delete(var L: list);
var x: list;
  begin
    x:=L;
    L:=L^.next;
    dispose(x);
  end;