Вычислить сумму ряда с точностью e=10–6 Ряд прикреплен в файле Задача на Pascal

program ddm; uses crt; var a,x,i: integer; m,j,h,f,l: real; begin clrscr; writeln ('Введите х'); readln (x); writeln ('Введите a'); readln (a); j: =x; for i: =1 to a+1 do beginj: =j*x; h: =(i+1)*j+1; f: =sqr (i+1); l: =h/f; if (i+1) mod 2=0 thenm: =m+lelse m: =m-l; end; writeln (m: 2:5); readkey; end.