Дано целое значение m при котором m>10 найти целые значения K при котором 4^k < m - Pascal(Паскаль)

uses crt;
var m,k,p:longint;
begin
clrscr;
repeat
write('Введите целое число >10 m=');
readln(m);
until m>10;
p:=4;
k:=0;
writeln('Степени числа 4, при которых 4^k<',m);
while p<m do
 begin
  p:=p*4;
  k:=k+1;
  write(k,' ');
 end;
readln
end.