Program laba1_3;
Var
    m, n, k, m_intial : integer;
    IsCorrect: Boolean;
Begin
    IsCorrect:=FALSE;
    m:=1;
    k:=0;
    repeat
        try
            writeln('Введите m: ');
            readln(m_intial);
            IsCorrect:=True;
            If m_intial<1 then
            begin
                IsCorrect:=False;
                Writeln('m должно быть больше 1!');
            end;
        except
            Writeln('Введите целое положительное число');
        end;
    until (IsCorrect);
    repeat
        try
            Writeln('Введите n: ');
            Readln(n);
            IsCorrect:=True;
            If ((n<2) or (n=m_intial) or (n<m_intial)) then
            begin
                IsCorrect:=False;
                Writeln('Число n должно быть больше m!');
            end;
        except
            Writeln('Введите целое положительное число!');
        end;
    until IsCorrect;
    while (m<n) do
    begin
      m:=m*m_intial;
      inc(k);
    end;
    If m=n then
    begin
      inc(k);
    end;
    Writeln('Наименьшее k = ',k );
    readln(n);
End.