Найдите сумму первых n членов ряда. y=1+x/2+x^2/3+x^3/4+…, при |x|< 1 в паскале

Решение в приложении! пробный запуск: введите число x: 0.25 введите число n: 5 сумма первых 5 членов заданного ряда равна 1.00065104166667

Var c: array[1..10] of integer; srar: real; k, i, s: integer; begin s: =0; {обнуляем счетчик элементов(к) и сумму(s)} k: =0; randomize; for i: =1 to 10 do {заполняем массив}   c[i]: =random(50); for i: =1 to 10 do   if (c[i] mod 2=0) and (c[i]> 10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму s}      begin     k: =k+1;       s: =s+с[i];     end; srar: =s/k; for i: =1 to 10 do {выводим массив} write(c[i], ' '); writeln; writeln('sr.arifmeticheskoe=', srar: 5: 2); end.

Var h1: array[1..5] of integer;       h2: array[1..8] of integer;       n1: array[1..5] of integer;       n2: array[1..8] of integer;       i, j: integer; begin randomize; for i: =1 to 5 do {заполняем массивы}   begin   h1[i]: =random(10);   n1[i]: =random(10);   end; for i: =1 to 8 do   begin   h2[i]: =random(10);   n2[i]: =random(10);   end; for i: =1 to 5 do {сравниваем продукцию}   for j: =1 to 8 do   if n1[i]=n2[j] then writeln(i, ' и ', j, ' выпускают одинаковую продукц.'); write('h1 '); {выводим массивы} for i: =1 to 5 do write(h1[i], ' '); writeln; write('n1 '); for i: =1 to 5 do write(n1[i], ' '); writeln; write('h2 '); for i: =1 to 8 do write(h2[i], ' '); writeln; write('n2 '); for i: =1 to 8 do write(n2[i], ' '); writeln; end.