Паскаль,помогите школьнику

[Ваня228]

Знайти суму членів ряду

S=1/a+1/a^2+1/a^3+1/a^n, якщо n=10, a=2.

[newerow1989]

const a = 2;
      n = 10;
var s, si: real;
    i: integer;
begin
   s:=0;
   si:=1;
   for i:=1 to n do
   begin
      si:=si/a;
      s:=s+si;
   end;
   Writeln('s = ', s:0:8);
   Readln;
end.