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

procedure delete(L: list);
var p,r: list;
  begin
    if(L<>nil) then
      if(L^.next<>nil) then
        begin
          p:=L^.next;
          L^.next:=p^.next;
          dispose(p);
        end;
  end;