Вывод результата. Множество

[shkolnik]

Вывод результата. Множество

Очень срочно!!!
Вот код программы. Нужно сделать вывод результата на экран.
type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln ;
l:=[];
for i:=1 to n do
l:=l+[random(100)];
.....
end.

 

[Vladimir_S]

Легко:
for i:=0 to 99 do
if (i in l) then write(i:3);

 

[shkolnik]

Большое спасибо