Количество выполнений тела цикла во фрагменте программы?
a:=7; b:=15; c:=-7; while a < b begin if b – c > a then a:=(a div b)+c else a:=b – a; c:=c+2; b:=b*(a div b) – c*2; end;