Var
  AD:array of integer;                        // Объявление массива
  
begin
   SetLength(AD,10000000);
end.