test_03, Pascal - rextester

Language: Layout:

//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:=orange;
    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.

Show compiler warnings [ + ] Show input
Время компиляции: 0,12 сек, абсолютное время выполнения: 0,15 сек, время процессора: 0,01 сек, пик памяти: 5 Мб, абсолютное время обслуживания: 0,4 сек