{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. }

program IncludeDemo;

var
  Ch: Char;
  MyCharSet: set of Char;

begin
  MyCharSet := ['P','N','L'];
  Include (MyCharSet , 'A');  { A, L, N, P }
end.
