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

Var i,a,s:integer;
begin
s:=1;
a:=1;
for i:=1 to 10 do begin 
a:=a*2; 
s:=s+a; 
end;
write('S=',s);
readln
end.

это решение для Pascal abc но  могу и на  C++ если надо