не очень понятно что именно нужно сделать...
поэтому предположу что нужно написать программу которая перебором найдет нужное 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.