Отыскать: Сумму кубов всех целых чисел от 1 до n (

program zz1;

var n, i, m, s:integer; // задаем переменные целого типа

begin

write( введите данное число n );  // вводим с клавиатуры заключительнее число ряда

read(n);

for i:=1 to n do // организуем цикл, в котором переберем числа от единицы до n

begin

s:=s + i * i * i; // возводим очередное число в куб, умножив на себя два раза, и прибавляем его в сумму

end;

write( сумма кубов всех целых чисел от 1 до n = , s); // выводим ответ

end.