Elena_while

{Дано целое число m>1.
Получить наибольшее целое k, при котором 4^k<m.}
var
    x,m,k,i:integer;
begin
    write('Vvedi m: ');
    readln(m);
    k:=0;x:=1;
    if m<4 then writeLN(k)
    else
    begin
        while x<m do
        begin
            inc(k);
            x:=x*4;
        end;
        writeLN(k-1);
    end;
    read;
End.