Объяснение:

var

a, b, s: real;

begin

a := 1;

b := 2;

while a + b < 8 do

begin

a := a + 1;

b := b + 2;

writeln(‘a = ‘, a, ‘ b = ‘, b);

end;

s := a + b;

writeln(‘s = ‘, s);

end.

Вывод

a = 2 b = 4

a = 3 b = 6

s = 9

Отсюда видно что цикл прокрутился 2 раза и a = 3 b = 6 s = 9