Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 18; a := 8; repeat a := 2*a + 1; write( a); until (a>b) end. :