тип TpoSrange = 0..32; Tstateresult = 0..1; Функция getBitsate (Источник: Integer; POS: TPOSRANGE): TSTATERESULT; начинать Результат: = ((источник и (1 Shl POS)) SHR POS); конец;
