Составьте блок-схему и программу вычисления 1+2+4+8+...+2^10

var i,a,s:integer;begins:=1;a:=1;for i:=1 to 10 do begin  a:=a*2;  s:=s+a; end;write('S=',s);readlnend.это решение для Pascal abc но  могу и на  C++ если надо