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

К сожалению, у нас пока нет статистики ответов на данный вопрос, но мы работаем над этим.