{Винарский 16_30_з}
procedure elemE(L: list; E: integer);
var q,p: list; t: boolean;
  begin
    if(L<>nil) then
      begin
        p:=L;
        t:=false;
        while((p^.next<>nil) and (p^.next^.elem<>E) and (not(t))) do
          p:=p^.next;
        if(p^.next<>nil) then
          begin
            q:=p^.next;
            p^.next:=q^.next;
            dispose(q);
            t:=true;
          end;
      end;
  end;