{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. } program CompDemo; var a: Comp; begin a := 42; WriteLn (a) end.