Задать массив a(n) элементы которого являются членами ряда a(i) =i^3 не большими наперед заданного числа м> =1000 найти среднее значение элементов массива

Const n =9; // Задаем кол-во элементов в массиве
var
i,sred:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
if i*i*i = 1000 then break;
a[i]:= i*i*i;
sred:=sred+a[i];
end;
writeln('Среднее значение элементов = ', sred/n);
end.