Program P88;
 { Eroare }
type Multime=set of integer;
var M : Multime;
    i : integer;
begin
 M:=[1, 8, 13];
 for i:=1 to MaxInt do
   if i in M then writeln(i);
end.