var halmaz : set of 1..10; num : integer; BEGIN halmaz := [3, 4]; halmaz := [5]+halmaz; for num in halmaz do begin WriteLn(num); end; END.