Дана последовательность чисел 1 2 4 8 16. Какой номер будет у числа 1024. ** языке Паскаль

Question

Дана последовательность чисел 1 2 4 8 16. Какой номер будет у числа 1024.
На языке Паскаль

Answer 1

Var
  a, b: integer;

begin
  b := 0;
  a := 1;
  repeat
    b := b + 1;
    a := a * 2;
  until a = 1024;
  writeln(b);
end.

---