laba.1.3.(Delphi)

Program Laboratorka_1_3;

Uses System.SysUtils;
Const
  MIN_VALUE_M = 11;
  MAX_VALUE_M = 1000000;
Var
  M, K, Number: Integer;
  IsCorrect: Boolean;

Begin
  Writeln ('Данная программа находит наибольшее целое k из неравенства ( 4 ^ k < m )
            при данном m.');
  Writeln  ('Диапазон ввода значений m: ', MIN_VALUE_M, '...', MAX_VALUE_M, '.');

  K := 0;
  Number := 4;

  Repeat

    IsCorrect := True;
    Write('Введите значение m: ');

    Try
      Readln(M);
    Except
      Writeln('Проверьте корректность ввода данных!');
      IsCorrect := False;
    End;

    If (IsCorrect) And ((M < MIN_VALUE_M ) Or (M > MAX_VALUE_M)) Then
    Begin
      Writeln ('Введите значение от ', MIN_VALUE_M, ' до ', MAX_VALUE_M, '!');
      IsCorrect := False;
    End;

  Until(IsCorrect) ;

  While Number < M Do
    Begin
      Number := Number * 4;
      Inc (K);
    End;

  Writeln('Число k равно ', K, '.');

End.