type
  TPosition = bitpacked record // 8 bits
    Power:    Boolean;         // 1 bit
    Pixel:    0 .. %1111;      // 4 bits
    Subpixel: 0 .. %111;       // 3 bits
  end;
 
begin
  WriteLn('Position:   ', BitSizeOf(TPosition),          ' bits');
  WriteLn('  Power:    ', BitSizeOf(TPosition.Power),    ' bits');
  WriteLn('  Pixel:    ', BitSizeOf(TPosition.Pixel),    ' bits');
  WriteLn('  Subpixel: ', BitSizeOf(TPosition.Subpixel), ' bits');
end.

dHlwZQogIFRQb3NpdGlvbiA9IGJpdHBhY2tlZCByZWNvcmQgLy8gOCBiaXRzCiAgICBQb3dlcjogICAgQm9vbGVhbjsgICAgICAgICAvLyAxIGJpdAogICAgUGl4ZWw6ICAgIDAgLi4gJTExMTE7ICAgICAgLy8gNCBiaXRzCiAgICBTdWJwaXhlbDogMCAuLiAlMTExOyAgICAgICAvLyAzIGJpdHMKICBlbmQ7CgpiZWdpbgogIFdyaXRlTG4oJ1Bvc2l0aW9uOiAgICcsIEJpdFNpemVPZihUUG9zaXRpb24pLCAgICAgICAgICAnIGJpdHMnKTsKICBXcml0ZUxuKCcgIFBvd2VyOiAgICAnLCBCaXRTaXplT2YoVFBvc2l0aW9uLlBvd2VyKSwgICAgJyBiaXRzJyk7CiAgV3JpdGVMbignICBQaXhlbDogICAgJywgQml0U2l6ZU9mKFRQb3NpdGlvbi5QaXhlbCksICAgICcgYml0cycpOwogIFdyaXRlTG4oJyAgU3VicGl4ZWw6ICcsIEJpdFNpemVPZihUUG9zaXRpb24uU3VicGl4ZWwpLCAnIGJpdHMnKTsKZW5kLg==