Объяснение:
program ideone;
var
x, i: Integer;
begin
read(x);
i := 0;
while (x > 0) do
x := x shr 1;
inc(i);
end;
//нумерация с нуля
writeln(i-1);
end.
