сумма i=1 до n (1/i +sqrt(модуль х)) получить результаты при
n=8 х=2
n=10 х=-3
uses crt;
var n,i,j:integer;
x,s,f,t:real;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
s:=0;
for i:=1 to n do
begin
f:=1;
for j:=1 to i do
f:=f/j;
s:=s+f+sqrt(abs(x));
end;
write('S=',s:0:2);
readln
end.