Алгоритм сложив единицу саму собой затем каждый раз складывал получаемые суммы сами с собой и после 9 итерации получил число из интервала

Var
    i, n: integer;

begin
    n := 1;
    for i := 1 to 9 do
        n := n + n;
    writeln(n);
end.