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

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