uses Math; //подключаем математическую библиотеку
var i : integer; //объявляем целочисленную переменную для цикла
s : real; //объявляем вещественную переменную для суммы
begin//начала основной программы
s := 0;//даем сумме значение 0
for i := 1 to 8 do//запускаем цикл, который идет от 1 до 8
s := s + power(i, 3);//каждый проход цикла увеличиваем сумму на i в кубе
writeln(s:4:0);//выводим результат
end.//конец программы
uses Math; //подключаем математическую библиотеку
var i : integer; //объявляем целочисленную переменную для цикла
s : real; //объявляем вещественную переменную для суммы
begin//начала основной программы
s := 0;//даем сумме значение 0
for i := 1 to 8 do//запускаем цикл, который идет от 1 до 8
s := s + power(i, 3);//каждый проход цикла увеличиваем сумму на i в кубе
writeln(s:4:0);//выводим результат
end.//конец программы