a := 1;
b := 1;
While a + b < 8 Do
begin
a := a + 1;
b := b + 2
end;
Цикл будет выполняться, пока условие истинно, то есть, пока a+b <8.<br>При первой итерации условие истинно (1+1<8)<br>На второй итерации значения переменных будут равны:
a = 1 + 1 = 2
b = 1 + 2 = 3
Условие истинно (2+3<8)<br>
Третья итерация:
a = 2 +1 = 3
b = 3 + 2 = 5
Условие ложно (3 + 5<8), программа выйдет из цикла.<br>
Ответ: цикл выполниться три раза.