Вычисление суммы бесконечного ряда

uses crt;
function Sin1(x,e:real):real;
var s,t,ch,zn:real;{сумма, очередной член ряда, его числитель и знаменатель}
    i:integer;
begin
s:=x;ch:=x;zn:=1;t:=ch/zn;i:=1;
while abs(t)>=e do
  begin
   ch:=ch*(-1)*x*x;
   zn:=zn*2*i*(2*i+1);
   t:=ch/zn;
   s:=s+t;
   inc(i);
 end;
Sin1:=s;
end;
begin
clrscr;
writeln('Приближенное значение  sinx:');
writeln('x=0.25  eps=0.001         sin(x)=',Sin1(0.25,0.001):12:10);
writeln('x=0.25  eps=0.000001      sin(x)=',Sin1(0.25,0.000001):12:10);
writeln('x=0.25  eps=0.00000001    sin(x)=',Sin1(0.25,0.00000001):12:10);
writeln('Аналитическое значение sin(0.25)=',sin(0.25):12:10);
writeln;
writeln('x=0.50  eps=0.001         sin(x)=',Sin1(0.50,0.001):12:10);
writeln('x=0.50  eps=0.000001      sin(x)=',Sin1(0.50,0.000001):12:10);
writeln('x=0.50  eps=0.00000001    sin(x)=',Sin1(0.50,0.00000001):12:10);
writeln('Аналитическое значение sin(0.50)=',sin(0.50):12:10);
readln
end.

uses crt;
const n=9;
var z:array[1..n] of real;
    s:real;
    i:byte;
begin
clrscr;
writeln('Вектор Z:');
s:=0;
for i:=1 to n do
 begin
  if cos(i)<=0.5 then z[i]:=sin(i)
  else z[i]:=(cos(i)/sin(i));
  s:=s+abs(z[i]);
  write(z[i]:5:2);
 end;
writeln;
writeln('Сумма модулей=',s:0:2);
readln
end.

uses crt;
function F(x:real):real;
begin
F:=0.6*exp(ln(3)*x)-2.3*x-3;
end;
 
var a,b,c,x,e:real;
begin
clrscr;
writeln('F(x)=0.6*exp(ln(3)*x)-2.3*x-3');
write('Начало интервала: ');readln(a);
repeat
write('Конец интервал, b>a: ');readln(b);
until b>a;
repeat
write('Точность: ');readln(e);
until (e>0)and(e<1);
if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end
else x:=a-1;
if x=a-1 then write('На данном интервале корней нет!')
else writeln('x=',x:0:5);
readln
end.