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

[lalka123]

Очень срочно!!!
Вот код программы. Нужно сделать вывод результата на экран.

type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln (n);
l:=[];
for i:=1 to n do
l:=l+[random(100)];
.....
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

это смотря какой паскаль.
Если стандартный (типа Turbo/FreePascal/Delphi), то там единственный способ вывести элементы множества - цикл по всем возможным элементам, с проверкой на вхождение в множество, если входит, то печатаем.

в вашем случае (для set of byte), например. так:

Write('Содержимое множества: ');
for b:=0 to 255 do
  if b in l then Write(b,' ');
WriteLn;

Если Паскаль - мутант, типа PascalABC или Pascal ABC.NET, то там можно просто вывести множество, имхо!

[lalka123]

Извините за неправильное оформление. Обязательно должен присутствовать set of byte. У меня был такой код изначально, но естественно не выводил результат и ругался.
p.s паскаль Turbo

type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln (n);
l:=[];
for i:=1 to n do
l:=l+[random(100)];
write (n,' ', l);
readln
end.