РЕШИТЕ ЛЁГКИЙ Метод

A = 2, b = 0;

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

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

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

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

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

//На снимке экрана итог работы данной программки