Тема: Циклы с неизвестным количеством повторений - Pascal ABC

Формулировка задачи:

Известно, что изобретатель шахмат потребовал у царя такое вознаграждение: за первую клетку шахматной доски дать одно пшеничное зернышко, а за каждую следующую - вдвое больше, чем за предыдущую. Запасов зерна царя оказалось недостаточно, чтобы рассчитаться. Составить программу, которая определит, сколько клеточек можно оплатить, имея m зерен

Решение задачи: «Тема: Циклы с неизвестным количеством повторений»

Листинг программы

var
 k,n,m:integer;
begin
  repeat
    write('enter number');
    readln(m);
  until m>0;
  n:=0;
  k:=1;
  while k<=m do
    begin
      m:=m-k;
      inc(n);
      k:=k*2;
    end;
  writeln('result:=',n);
end.

Объяснение кода листинга программы

Переменные k, n, m инициализируются как целочисленные.
Цикл repeat используется для получения значения переменной m от пользователя до тех пор, пока это значение больше нуля.
Значение переменной n инициализируется как 0, а значение переменной k устанавливается равным 1.
Цикл while используется для выполнения операций, пока значение переменной k меньше или равно значению переменной m.
Внутри цикла значение переменной m уменьшается на значение переменной k.
Значение переменной n увеличивается на единицу.
Значение переменной k удваивается.
По завершении цикла выводится значение переменной n.