uses crt;
var a,k,i,x,N:integer; summ,z :real;
begin clrscr;
writeln('vvedite kol-vo elementov ryada N= ');readln(n);
writeln('vvedite znachenie x= ');readln(x);
summ:=1;a:=1;k:=1;write;
for i:=1 to N do begin
z:=k*(x/(i+1));writeln;
x:=x*x;
k:=k*(-1);
summ:=summ+z+a;
write(z:8:2);
end;
writeln;
write('summa elementov=',summ:5:2);
readln;
readln;
end.