Найти: Сумму кубов всех целых чисел от 1 до n (Значение n вводится с клавиатуры; B>a)

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.