Алгоритм сложив единицу саму собой затем каждый раз складывал получаемые суммы сами с собой и после 9 итерации получил число из интервала
Var i, n: integer; begin n := 1; for i := 1 to 9 do n := n + n; writeln(n); end.