Вычислить сумму слагаемых заданного вида

uses crt;
var x,e,t,s1,s2,p:real;
    n,i,j:integer;
begin
write('x=');
read(x);
write('n=');
read(n);
write('e=');
read(e);
t:=1;
s1:=0;
s2:=0;
for i:=1 to n do
 begin
  t:=1;
  p:=1;
  for j:=1 to i do
   begin
    t:=t*x;
    p:=p*(j/(j+1)-sin(t));
   end;
  s1:=s1+p;
  if abs(p)>e then s2:=s2+p;
 end;
writeln('Сумма всех членов ряда=',s1:0:4);
writeln('Сумма членов ряда, по абсолютной величине больше e=',s2:0:4);
end.

var x,s1,s2,si,sn,e:real;
    i,n:integer;
begin
  write('x = ');readln(x);
  write('n = ');readln(n);
  write('e = ');readln(e);
  s1:=0;s2:=0;si:=1;
  sn:=sin(x);i:=0;
  while (abs(si)>e)or(i>=n) do
    begin
      inc(i);
      si:=si*(i/(i+1)-sn);
      sn:=sn*sin(x);
      s1:=s1+si;
      if abs(si)>e then s2:=s2+si;
    end;
  writeln('1. S = ',s1:0:10,' 2. S = ',s2:0:10);
  readln
end.

sn:=sn*sin(x);

var x,s,si,sx,e:real;
    i,n:integer;
begin
  write('x = ');readln(x);
  write('n = ');readln(n);
  write('e = ');readln(e);
  s:=0;si:=1;
  sx:=x;
  for i:=1 to n do
    begin
      si:=si*(i/(i+1)-sin(sx));
      sx:=sx*x;
      s:=s+si;
    end;
  writeln('1. S = ',s:0:10);
  si:=1;sx:=x;
  s:=0;i:=0;
  while abs(si)>e do
    begin
      inc(i);
      si:=si*(i/(i+1)-sin(sx));
      sx:=sx*x;
      s:=s+si;
    end;
  writeln('2. S = ',s:0:10);
  readln
end.