Сколько раз выполняется цикл в фрагменте программы:
a: = 1;
b: = 1;
While a+b < 8 do
begin
a: = a+1;
b: = b+2
end.

Два раза.
2 + 3 = 5 - меньше 8 еще разок выполним, так как 5 lt; 8 = Истина
3 + 5 = 8 - равно 8 цикл остановлен,  так как 8 lt; 8 = Ложь