Какое минимально количество команд будет содержать программа для изображения рисунка

х = log₂ n;

х = log₂ 12 бит.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.