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

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

ответ:первое значение а, то есть 8.

Объяснение:

Вообщем я так понимаю это приравнивается к циклу do while в c++ поэтому пойду по этой страте.

объявлем 3 целочисленные переменные;

Начало

присваеваем "b" значение 18;

присваеваем "a" значение 8;

присвеваем "a" произведение 2 и "a" и + 1;

вывод(а) на экран;

Если (a>b)

Конец.

1 цикл проходит и значение а становится 16+ 1 = 17. И всё ещё a < b цикл завершен.