Question

Поможіть пж)
S:=1; x:=2;
for i:=7 downto 2 do
begin
x:=x*2;
S:=S+x;
end;