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

procedure insert(var L: list;E,E1: integer);
var p,r: list; a,b: integer; eq: boolean;
  begin
    if(L<>nil) then
      begin
        p:=l;
        eq:=false;
        while((p<>nil) and (not(eq))) do
          if(p^.elem=E) then
            eq:=true
          else
            p:=p^.next;
        if(eq) then
          begin
            p^.elem:=E1;
            new(r);
            r^.elem:=E;
            r^.next:=p^.next;
            p^.next:=r;
          end;
      end;
  end;