Геометрическая прогрессия: b1=1 q=2
И, если надо, программа:
var s,i:integer;
begin
i:=1;
while i<=512 do begin
s:=s+i;
i:=i*2;
end;
writeln(s);
end.
