Циклы.Ряд.Степени.

[enji4ka]

Здравствуйте!И снова я нуждаюсь в вашей помощи!!!Очень-очень!Есть программа:

begin
clrscr;
write('vvedite x : ');
readln(x);
writeln;
writeln;
writeln('   x^n');
writeln('---------');
writeln('(n+1)*2^n');
writeln;
S:=0;
for n:=0 to n-1 do begin
  write(n+1,'. ');
  if n mod 2=0 then begin
   y1:=(exp(n*ln(x)))/((n+1)*exp(n*ln(2)));
   write(y1:0:3);
   writeln( '          ',exp(n*ln(x)):0:0);
   writeln('                 -----');
   writeln('                  ',(n+1)*exp(n*ln(2)):0:0);
   writeln;
   S:=y1+S;
   end;
  if n mod 2<>0 then begin
   y2:=(exp(n*ln(x)))/(n*exp(n*ln(2)));
   write(y2:0:3);
   writeln( '          ',exp(n*ln(x)):0:0);
   writeln('                 -----');
   writeln('                  ',(n*exp(n*ln(2))):0:0);
   writeln;
   S:=y2+S;
   end;
end;
writeln('Summa  : ',S:0:3);
readln;
end.

Помогите пожалуйста сделать так, что вводилось автоматически в программу n (это степень икса) от 0 до + бесконечности и чтобы всё это происходило до кого момента, пока один член ряда минус первый по модулю больше чем точность 0.0001. Всё перепробовала, но никак не могу сделать...Программа только с циклами, никаких массивов, функций нельзя...Если можете помочь, впишите в программу, что надо и где. Большое спасибо, очень нуждаюсь в помощи....

[Z1000000]

вводилось автоматически в программу n (это степень икса) от 0 до + бесконечности

До бесконечности не обещаю, но до максимального значения целого числа.

n:=random(2147483647)

один член ряда минус первый по модулю больше чем точность 0.0001

формулировка труднопонимаемая ( мной ). Наверное имеется в виду, очередной член ряда меньше точности.