Помогите,пожалуйста.Очень безотлагательно нужно

Код на сто процентов
//PascalABC.NET 3.1 сборка 1239
var
    a, b, c: integer;

begin
    a := 9;
    b := 3;
    c := 1;
   
    while not (a = b) do
    begin
        c := c + (a - b);
        a := a - 1;
        b := b + 1;
        Println(a, b, c);
    end;
   
    writeln('c=',c);
   2
    a := 10;
    b := 2;
   
    while not (a lt;5) do
    begin
        b := b + 10-a;
        a := a - 1;
        Println(a, b, c);
    end;
   
    writeln('b=',b);
end.

Вывод программки
c=13
b=17