類型tposrange = 0..32; tstateresult = 0..1;函數getBitsate（來源：整數； pos：tposrange）：tstateresult;開始結果：=（（源和（1 shl pos））shr pos）;結尾;
