for i:=1 to N do
if (i in m1) then write(i)
или есть другой способ?
for i:=1 to N do
if (i in m1) then write(i)
for ch := 'a' to 'z' do begin
if ch in myset then write(ch);
end;
for ch := #0 to #255 do begin
if ch in myset then write(ch);
end;
const
N=20;
var
m1:set of 1..N;
i:integer;
begin
m1:=[1,2,3];
for i:=1 to N do if i in m1 then Write(i,' ');
ReadLn;
end.