организация циклического алгоритма

[NEMO1991]

1.Дано натуральное число N и вещественное число A . Вычислить

1/A+1/A^2+1/A^4+...+1/A^2N
2.Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности (т.е. очередной член ряда становится меньше введенной точности, либо разность между двумя соседними членами ряда становится меньше введенного значения точности e).
S=n/2^n (N ОТ 0 ДО БЕСКОНЕЧНОСТИ)

помогите чем сможете..

[puporev]

На, вникай в арифметику.

uses crt;
var a,s,t:real;
    n,i:integer;
begin
clrscr;
repeat
write('a=');readln(a);
until a<>0;
write('n=');readln(n);
s:=1/a;t:=1;
for i:=1 to n do
   begin
     t:=t/(a*a);
     s:=s+t;
   end;
writeln('S=',s:0:8);
readln
end.

№2.

uses crt;
var s,si,t,e:real;
    n,i:integer;
begin
clrscr;
write('e=');readln(e);
write('n=');readln(n);
s:=0;n:=1;t:=1;
while (t>=e)or (abs(s-si)>=e) do
   begin
     si:=s;
     t:=t/2;
     s:=s+n*t;
     inc(n);
   end;
writeln('t=',t:0:5,' s=',s:0:5,'  si=',si:0:5);
readln
end.

[NEMO1991]

спасибо огромное))))))))))