Program _11;
var i,j,P,M:integer;
begin
P:=0;
for i:=1 to 8 do begin
M:=1;
for j:=1 to 3 do begin
M:=M*j;
end;
P:=P+M;
end;
write(P);
end.
Нарисовать блок-схему на компьютере у меня нет возможности, поэтому опишу алгоритм на русском языке:
1. Сначала объявляются целые числа i,j,P,M, где i-возводимое в степень число, j-степень, M-возведенное в степень j число i. P-сумма всех чисел M от 1^3 до 8^3;
2. Задаются 2 цикла с параметрами i и j - число i возводится в степень j и результат заносится в переменную M. В каждом конце 1 цикла к P прибавляется M.
3. Когда оба цикла выполнятся, будет готово окончательное значение переменной P. Оно будет выведено в конце программы как результат выше описанного примера.