พิมพ์ TPOSRANGE = 0..32; tStateresult = 0..1; ฟังก์ชั่น getBitsate (ที่มา: จำนวนเต็ม; POS: TPOSRANGE): tStateresult; เริ่ม ผลลัพธ์: = ((แหล่งที่มาและ (1 shl pos)) sh pos); จบ;
