Запишите значение переменной b после выполнения фрагмента ...

Vasy

Тут проще с помощью программы проверить.

Вот программа:

var a,b: integer;begin a:=1; b:=1; repeat a:=a*2; b:=b+a; until a=512; writeln(b);end.

Ответ: 1023