Запишите значение переменной b после выполнения фрагмента алгоритма:
Тут проще с помощью программы проверить.
Вот программа:
var a,b: integer; begin a:=1; b:=1; repeat a:=a*2; b:=b+a; until a=512; writeln(b); end.
Ответ: 1023