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

[Alex1991]

нужно написать две проги: Вычислить сумму бесконечного ряда с заданной точностью "є" определить количество членов, необходимых для достижения заданной точности. Создать два типа программ с помощью разных операторов цикла.

[RealSHELS]

program for_alex1991_1;
const
x=0.19;
e=1e-5;
var
i,s,si,lnq,f,z:real;
begin
  i:=1;
  si:=(i+1)*sin(i);
  f:=2;
  lnq:=sqr(ln(i*x));
  z:=si/(f+lnq);
  s:=z;
  while abs(z)>e do
    begin
      i:=i+1;
      si:=(i+1)*sin(i);
      f:=f*(i+1);
      lnq:=sqr(ln(i*x));
      z:=si/(f+lnq);
      s:=s+z;
    end;
  writeln('s=',s:3:2);
end.

program for_alex1991_2;
const
x=0.19;
e=1e-5;
var
i,s,si,lnq,f,z:real;
begin
  i:=0;
  f:=1;
  s:=0;
  repeat
      i:=i+1;
      si:=(i+1)*sin(i);
      f:=f*(i+1);
      lnq:=sqr(ln(i*x));
      z:=si/(f+lnq);
      s:=s+z;
  until abs(z)<e;
  writeln('s=',s:3:2);
end.

Блок-схему сам намалюєш.