يكتب tposrange = 0..32 ؛ tstateresult = 0..1 ؛ وظيفة getBitsate (المصدر: integer ؛ pos: tposrange): tstateresult ؛ يبدأ النتيجة: = (المصدر و (1 shl pos)) shr pos) ؛ نهاية؛
