Вычислите, чему приравнивается значение переменной С, после исполненья следующего метода: А

Решение задачки:
Исходные данные: A = 3; B = 9; C = 0.
1. Проверим, производится ли условие B gt; A: 9 gt; 3 да, производится. Как следует, реализуем последующий алгоритм:
если А + C gt; B то (С = C + 1; A = A + 2) иначе (С = C + 2; B = B + 1).
3 + 0 gt; 9 (- неправильное утверждение), означает:
С = C + 2; B = B + 1;
C = 0 + 2; B = 9 + 1;
C = 2; B = 10.
2. B gt; A: 10 gt; 3 да.
А + C gt; B: 3 + 2 gt; 10 нет, следовательно:
С = C + 2; B = B + 1;
C = 4; B = 11.
3. B gt; A: 11 gt; 3 да.
А + C gt; B: 3 + 4 gt; 11 нет.
С = C + 2; B = B + 1;
C = 6; B = 12.
4. Подобно предыдущим пт:
C = 8; B = 13. Потом C = 10; B = 14. И C = 12; B = 15.
5. B gt; A: 15 gt; 3 да.
А + C gt; B: 3 + 12 gt; 15; 15 gt; 15 нет. Означает C = 14; B = 16.
6. B gt; A: 16 gt; 3 да.
А + C gt; B: 3 + 14 gt; 16; 17 gt; 15 да.
С = C + 1; A = A + 2;
C = 14 + 1; A = 3 + 2;
C = 15; A = 5.
7. Подобно пт 6:
C = 16, A = 7;
C = 17, A = 9;
C = 18, A = 11;
C = 19, A = 13;
C = 20, A = 15;
C = 21. A = 17.
8. B gt; A: 16 gt; 17 нет. Цикл остановлен.
Ответ: 21.
Решение в PaccalABC.NET:
var a, b, c: integer;
begin
a:=3;
b:=9;
c:=0;
while bgt;a do begin
if (a+c)gt;b then begin
c:=c+1;
a:=a+2;
end
else begin
c:=c+2;
b:=b+1;
end;
end;
writeln(c);
end.