PROGRAM setranges3(output);
	{ Testing SET explicit initialization.
	  Written by Mirsad Todorovac, Nov 2001. Copying by GPL. }
CONST maxN = 255;
VAR   seta, setb, setc: SET OF 0..maxN value [0..255];
      i, j, k: Cardinal;
      failed: Boolean = false;

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