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