I bölmə t t t

uses Crt; 

type mallar=(m1,m2,m3,m4,m5,m6,m7,m8,m9); 

{Ambarda olan mallar} 

const  A:set of mallar = [m1,m3,m4,m5,m6,m9]; 

B:set of mallar = [m1,m2,m3,m5,m6,m8,m9]; 

C:set of mallar = [m3,m5,m6,m8]; 

var  mal:mallar; 

begin 

clrscr; 

writeln(‘Münasib mallar:’); 

for mal := m1 to m9 do 

if mal in A+B-C then 

case ord(mal)+1 of 

1:writeln(‘Kompyuter Dell Dimension’); 

2:writeln(‘Kompyuter IBM PC 300’); 

3:writeln(‘Kompyuter Celebris XL, GL’); 

4:writeln(‘Printer Epson, seriya LX,LQ’); 

5:writeln(‘Printer HP LJ 5L ta 5PM); 

6:writeln(‘Skaner Epson GT9000); 

7:writeln(‘Diskovod CD-ROM’); 

8:writeln(‘Disket Verbation 1.44Mb’); 

9:writeln(‘Disket Polaroid 1.44Mb’)