program laba1_3;
uses
   System.SysUtils;
var
   M, Temp: Longint;
   K: Integer;
   IsValid: Boolean;
   const MIN_SIZE = 9;
   const MAX_SIZE = 1000000001;
begin
   M := 0;
   IsValid := False;
   Writeln('Данная программа вычисляет наибольшее число K, при котором 4^K < M');
   Write('Введите число M в диапазоне ', MIN_SIZE + 1, '..', MAX_SIZE - 1, ': ');
   repeat
      try
         Readln(M);
         if (M > MIN_SIZE) and (M < MAX_SIZE) then
            IsValid := True
      else
         Writeln('Введите число M в заданном диапазоне');
      except
         Writeln('Введите корректные данные');
      end;
   until IsValid;
   Temp := 1;
   K := 0;
   Dec(M);
   repeat
      Inc(K);
      Temp := Temp * 4;
   until Temp * 4 > M;
   Writeln('Число K = ', K);
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end.