program new;


var
  i,t:Int32;
  a:array of Int32;
begin
  {$R+}
  SetLength(a, 35000000);
  t := GetTickCount();
  for i:=0 to High(a) do a[i];
  WriteLn(GetTickCount() - t);

  {$R-}
  SetLength(a, 35000000);
  t := GetTickCount();
  for i:=0 to High(a) do a[i];
  WriteLn(GetTickCount() - t);
end.