Вычислить: 1+2+4++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