ПОМОГИТЕ ДОБРЫЕ ЛЮДИ!+КАРМА

не очень понятно что именно нужно сделать...

поэтому предположу что нужно написать программу которая перебором найдет нужное k

var

   m, k , t: integer;

begin

   write('введите число: ');

   readln(m);

   t := 4;

   k := 1;

   while t < m do begin

       k += 1;

       t := t*t;

   end;

   writeln('k = ', k);

end.