Наибольшее целое n для условия - Pascal ABC

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

помогите, пожалуйста.Дано натуральное число m>1. Получить наибольшее целое n, при котором 4^n<m

Решение задачи: «Наибольшее целое n для условия»

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

var
  a: real;
  n, m: integer;
 
begin
  repeat
    write('m = ');
    readln(m)
  until m > 1;
  n := -1;
  a := 1;
  repeat
    inc(n);
    a := a * 4
  until a >= m;
  writeln('n = ', n);
  readln
end.

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

В начале кода объявлены три переменные: a, n и m. Переменная a типа real, а переменные n и m типа integer.
Затем идет цикл repeat, который выполняется до тех пор, пока значение переменной m больше 1. Внутри цикла выводится сообщение 'm = ' и считывается значение переменной m с помощью функции readln.
После окончания внутреннего цикла переменная n устанавливается в -1, а переменная a устанавливается в 1.
Затем начинается еще один цикл repeat. Внутри этого цикла переменная n инкрементируется, а переменная a умножается на 4. Цикл продолжается до тех пор, пока значение переменной a не станет больше или равно значению переменной m.
По окончании внешнего цикла выводится сообщение 'n = ', за которым следует значение переменной n, считанное из внутреннего цикла.
В конце программы вызывается функция readln для считывания входных данных.