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