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.