Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 18;
a := 8;
repeat
a := 2*a + 1;
write\( a\);
until \(a\\gt b\)
end.