вывести на экран сумму кубов чисел от 2 до 14

Для вычисления кубов чисел и суммы кубов достаточно организовать цикл for c изменением счетчика в диапазоне от 2 до 14. Возведение в куб осуществляется умножением числа, задающего номер цикла: i³ = i * i * i.

program kub;

var s: integer;

begin

s : = 0;

for i:integer : = 2 to 14 do

begin

s: = s + i * i * i;

writeln (i,'^', 3, ' = ', i * i * i)

end;

writeln ('Сумма кубов = ', s)

end.