Пусть дано целое число m>1. Получите наиболее целое K - Pascal ABC

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

Пусть дано целое число m>1. Получите наиболее целое K, при котором 4^k<m

Решение задачи: «Пусть дано целое число m>1. Получите наиболее целое K»

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

var k, m, p: Integer;
begin
   Write('m = '); Read(m);
   k := -1; p := 1;
  while p < m do begin
     p := p * 4; k := k + 1;
  end;
  Write('k = ', k);
end.

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

Объявлены три переменные: k, m, p типа Integer.
Пользователю предлагается ввести значение переменной m с помощью функции Read.
Инициализированы две переменные: k и p. Значение переменной k устанавливается равным -1, а значение переменной p устанавливается равным 1.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной p не станет больше или равным m.
Внутри цикла значение переменной p умножается на 4, а затем к нему прибавляется 1. Это делается для того, чтобы получить наиболее целое значение k.
После окончания цикла выводится значение переменной k с помощью функции Write.