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

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