Program proba;
 Uses crt,halmazu;
 Var halmaz, halmaz2:Thalmaz;
     elem:Tszin;
 Begin
  clrscr;
  halmaz:=[zold];
  elem:=piros;
  halmazba(halmaz,elem);
  kiiras (halmaz);
  halmaz2:=[piros];
  metszet (halmaz,halmaz2);
  kiiras (halmaz);
  Readkey;
 End.