type 
   enum	= (e0, e1, e2, e3, e4, e5, e6, e7, e8, e9,
	   e10, e11, e12, e13, e14, e15, e16, e17, e18, e19,
	   e20, e21, e22, e23, e24, e25, e26, e27, e28, e29, 
	   e30, e31, e32, e33, e34, e35, e36, e37, e38, e39, 
	   e40, e41, e42, e43, e44, e45, e46, e47, e48, e49);
   set50 = set of enum;
var
   s, s1	 : set50;
   non_printable : SET OF CHAR ;	 
   elem		 : integer;
begin
   s := [e10..e15,e20,e48..e49];
   non_printable := [CHR(0) .. CHR(31)];
    FOR elem := 0 to 127 DO
      IF ( CHR(elem) IN non_printable )
      THEN
        WRITE ( elem:4 ) ;
    WRITELN ;

   if e49 in s then
      writeln('operation in Ok');
   s := s - [e48];
   if s * [e0..e12] + [e20,e49] = s - [e13,e14,e15,e16] then
      writeln('operations * + - Ok');
   s1 := s + [e0];
   if (s <= s1) and (s1 - [e0] = s) and (s >= s) then
      writeln('operations := <= >= = Ok');
end.


