| [ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
(Under construction.)
type LongestBool = Boolean (BitSizeOf (LongestInt)); |
program LongestBoolDemo;
var
a: LongestBool;
begin
LongestInt (a) := 1;
if a then WriteLn ('Ord (True) = 1')
end.
|