Дана последовательность чисел 2 4 8 16 32 64 …Вычислить сумму а1+а3+а5+а7+а9 (1,3,5,7,9 числа..) — Pascal(Паскаль)

uses crt;
var n,i:byte;
    s,a:longint;
begin
clrscr;
write('n=');
readln(n);
a:=2;
s:=2;
i:=1;
writeln('a1=',a);
while i<n do
 begin
  i:=i+2;
  a:=a*4;
  writeln('a',i,'=',a);
  s:=s+a;
 end;
writeln;
write('Сумма=',s);
readln
end.