Вычислить сумму s= знак суммы (10 n=0) (xn^4n+1)/4n+1 при х= 1(0,1)2 надо написать программу на паскале

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program sum_calculation;
var
x, s, temp: real;
n: integer;
begin
s := 0;
for x := 0.1 to 2 do
begin
temp := 0;
for n := 0 to 10 do
begin
temp := temp + (power(x, (4 * n + 1))) / (4 * n + 1);
end;
s := s + temp;
end;
writeln('Сумма = ', s);
end.

Программа вычисляет сумму заданного ряда для значений x от 0.1 до 2.0. Результат выводится на экран.