Вычислить: 1+2+4+8...+256в паскале Распишите программу !Пж

var i,s: integer;
begin
  i:=1;  s:=0;
  repeat
    s:=s+i;
    i:=i*2;
  until i>256;
  writeln('s = ',s);
end.

второй вариант:

var s: integer;
begin
  s:=1 shl 9 - 1;
  writeln('s = ',s);
end.

s = 511