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

procedure insert(var L: list;E: integer);
var p: list; e1,e2: integer;
  begin
    if(L<>nil) then
      begin
        new(p);
        p^.elem:=E;
        p^.next:=L^.next;
        L^.next:=p;
      end;
  end;