посмотрите никто не может сделать(

writeln('vvedite k-stvo elementov');
readln(n);
writeln('vvedite x');
readln(x);
a[1]:=x;
for i:=2 to n do 
  a[i]:={ваша формула на языке паскалль};
 
i:=1;
while (abs(a[i]-a[i-1])>e)and(i<=n) do
i:=i+1;
 
if i<>n then writeln('elem - ',a[i]);

write('Input epsilon = ');
readln(E);
write('Input X=');
readln(X);
a:=X;
n:=1;
repeat
  b:={ваша формула}
  rzn:=a-b;
  a:=b;
  Inc(n)
until abs(rzn)<E;
writeln('Rezultat = ', a+rzn);

Program Posl;
Var
  e,an,a,x,r:real;
  i:integer;
Begin
  Writeln('Введите e');
  Readln(e);
  Writeln('Введите x');
  Readln(x);
  an:=x;                {первый элемент последовательности}
  i:=1;
  Repeat
    a:=an;
    an:=exp(2*i*ln(x))*sin(x)/(sqr(i)*a);
    i:=i+1;
    r:=abs(an-a);
  Until r < e;
  Writeln('Разница ',r:3:5);
  Writeln('Искомое число ',an:3:5);
  Readln;
End.

uses crt;
var e,x,a,a1,t:real;
    n:longint;
begin
clrscr;
write('x=');
readln(x);
repeat
write('e (0;1) e=');
readln(e);
until(e>0)and(e<1);
a1:=x;
t:=x*x;
a:=t*sin(x)/(4*x);
n:=2;
while abs(a-a1)>e do
 begin
  a1:=a;
  n:=n+1;
  t:=t*x*x;
  a:=t*sin(x)/(n*n*x);
 end;
writeln('a(n-1)=',a1:0:6,' a(n)=',a:0:6,' e=',abs(a-a1):0:6,' n=',n);
readln
end.