Помогите с №6. Сделайте пожалуйста код полностью

Результат:
a = 5
b = 16
s = 21

Код:
var
    a, b, s: integer;
begin
    a := 1;
    b := 1;
    repeat
        a := a + 1;
        b := b * 2;
    until b > 8;
    s := a + b;
    writeln('s = ', s);
end.

Выполнить код онлайн: http://rextester.com/QXO13882

Давать внешние ссылки запрещено. Категорически!