Цикл в фрагменте программы a := 1; b := 1; while a + b < 8 do begin a := a + 1; b := b + 2 end; выполнится: 2 раза 0 раз 3 раза бесконечное число раз :