test_03, Pascal - rextester

test_03

//fpc 3.0.4

program test_03;
type tsvet=(blue, green,yellow, red,orange,cyan,white,black,brown);
          color=set of tsvet ;
var clr:tsvet; 
      vse:color;
begin
    clr:=cyan;
    vse:=[blue, green,yellow, red,orange,cyan,white,black,brown]-[cyan,orange];
    if clr in vse then 
                           case clr of
                               blue: write('blue belong vse '); 
                               green: write('green belong vse'); 
                               yellow: write('yellow belong vse');
                                red: write('red belong vse');
                                cyan: write('cyan belong vse');
                                orange: write('orange belong vse');
                                white: write('white belong vse');
                                black: write('black belong vse');
                                 brown: write('brown belong vse');
                              end  
                         else 
                             case clr of
                               blue: write('blue not belong vse '); 
                               green: write('green not belong vse'); 
                               yellow: write('yellow not belong vse');
                                red: write('red not belong vse');
                                cyan: write('cyan not belong vse');
                                orange: write('orange not belong vse');
                                white: write('white not belong vse');
                                black: write('black not belong vse');
                                 brown: write('brown not belong vse');
                              end ; 
end.


run \| edit \| history \| help	0