{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. } program LongestBoolDemo; var a: LongestBool; begin LongestInt (a) := 1; if a then WriteLn ('Ord (True) = 1') end.