1^2+2^2+3^2 + ... + n^2 1. решить2. составить алгоритм

Программа запрашивает у пользователя количество элементов ряда, записывает это число в переменную osnovanie_stepeni.

На этом числе далее основан цикл for, который повторяется osnovanie_stepeni раз.

var

result_of: real;

osnovanie_stepeni: integer;

begin

write ('Введите количество слагаемых n: ');

read (osnovanie_stepeni);

for i: integer : = 1 to osnovanie_stepeni do

begin

result_of : = result_of + power (i, 2);

writeln ('Промежуточный результат на шаге ', i:2, ' = ', result_of);

end;

writeln ('Сумма ряда: ', result_of);

end.