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

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