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

var m,mk,k:integer;beginreadln(m);k:=0;mk:=1;while mk<m do begin mk:=mk*4; k:=k+1; end;k:=k-1;writeln(k);end.Пример:5004