A = 2, b = 0;

Вопрос: а = 7?
Если да: Закончить.
Если нет: Прибавить к "a" единичку, а к "b" прибавить "a"
**Причем, прошу заметить, сначала мы прибавляем к "a" единичку, а потом прибавляем к "b" "a"!!! Это важно!

Поехали.
а=2, б = 0.
а = 7? нет >> а = 3, б = 3.
а = 7? нет >> а = 4, б = 7.
а = 7? нет >> а = 5, б = 12.
а = 7? нет >> а = 6, б = 18.
а = 7? нет >> а = 7, б = 25.
а = 7? Да. >> Конец.

Ответ: а = 7, б = 25.

Если просили написать программу на языке Pascal, соответствующую алгоритму:

Var a,b:integer;
Begin
a:=2;
b:=0;
while(a7) do
begin;
a:=a+1;
b:=b+a;
end;
writeln('a = ',a,' b = ',b);
readln(a);
end.

//На скриншоте результат работы данной программы