25
declare
   V : Vector;
   I : Extended_Index;
begin
   V.Append (New_Item => E);
   I := V.Last_Index;
   E2 := V.Element (Index => I);
   V.Replace_Element (Index => I, By => E3);
   V.Insert (Before => I, New_Item => E4);
   V.Delete (Index => I);
   V.Delete_Last;
end;
Index-based Operations