Множества (Pascal)

[(=Hello=)]

Ввод элементов множеств осуществлять до нажатия клавиши ‘z’.
Дано множество X1 содержащее целые числа из диапазона [1..100]. Сформировать новое множество Y1 путем выделения из множества X1 нечетных чисел, множество Y2 путем выделения из множества X1, чисел, кратных 15.

[phomm]

вы уже какую задачу решаете не сами, не приводя ни единой строчки своего кода ?

for i := 1 to 100
  do begin
  if (i in x1) and (odd(i))
    then y1 := y1+[i];
  if (i in x1) and (i mod 15  = 0)
    then y2 := y2+[i];
  end;

как-то так, остальную рутину сами

[Grag]

    then y1 := y1+[i];

Тут лучше использовать механизмы работы со множествами (include)... Оно как-то ближе к теме...