PROGRAM setranges2(output);
	{ Tests (implicit) SET initialization to empty.
	  Written by Mirsad Todorovac, Nov 2001. Copying by GPL. }
CONST maxN = 255;
VAR   seta, setb, setc: SET OF 0..maxN;
      i, j, k: Cardinal;
      failed: Boolean = false;

BEGIN
    FOR i:= 0 TO maxN DO
        IF ((i IN seta) OR (i IN setb) OR (i IN setc)) THEN
	  BEGIN
	   IF (NOT failed) THEN
	    BEGIN
	     writeln('Failed: SET not initialized empty! ', i, ' found IN!');
		{It's suffiecient to find one bad example to have found a bug!}
	     failed := true;
	    END
	  END;
    IF (NOT failed) THEN
	writeln('OK');
END.