pascal. задача на множества

[meri]

дано var x, y, z: set of 5..30; x нужно присвоить все целые числа из множества, y - все простые и z - все составные. пожалуйста, помогите решить

[Chudo4258]

Сообщение от meri

дано var x, y, z: set of 5..30; x нужно присвоить все целые числа из множества, y - все простые и z - все составные. пожалуйста, помогите решить

Из какого множества? Вы это множество сами создаете? Каким образом вы его заполняете???

[Serge_Bliznykov]

x можно заполнить так:

   x := [];
   for i:=5 to 30 do
        include(x, i);

Y

   y := [];
   for i:=5 to 30 do
     if  IsProstoe(i) then
        include(y, i);