Сколько раз выполнится цикл во фрагменте программы?

a := 1;
b := 1;
while a+b < 8 do
begin
a := a+1;
b := b+2
end;

В ответ запишите только число.