Структурированный тип множество Опции

[Korsar]

Народ помогите пожалуйста решить задачу!!!!!
Используя структурированный тип множество выполнить следующие действия с исходными данными. Если мощность множества (количество элементов без учета повторений) не задана, принять ее равной 10. Значения элементов исходных множеств ввести с клавиатуры. На экран вывести исходные и полученные множества.
Дано множество X1, содержащее целые числа из диапазона [1..100]. Сформировать новое множество Y1 путем выделения из множества X1 нечетных чисел, множество Y2 путем выделения из множества X1, чисел, кратных 15. На экран вывести исходное и полученные множества, а также мощность множества Y2.
Или подскажите где есть подобная. Заранее благодарен.

[Korsar]

Спасибо большое Pola!!! Все равно не получается что-то!!! Ввожу элементы множества, после ввода последнего элемента нажимаю Enter и меня выбрасывает обратно. В чем дело? Что я не правильно делаю?

Код

program laba;
uses crt;
const n=10;
var i: set of byte
   procedure vvod;
     var a,s: byte;
      begin
       i:=[];
        for s:=1 to n do
         begin
          write('введите элемент множества ');
          readln(a);
          i:=i+[a];
         end;
      end;
   procedure vivodr;
     var a,s: byte;
           begin
            for s:=1 to n do
             if (a in i) and (a mod 2=1) then
              writeln('множество нечетных чисел:',i);
           end;
    procedure vivodr15;
     var a,s: byte;
       begin
        for s:=1 to n do
         if (a in i) and (a mod 15=0) then
          writeln('множество чисел кратных 15:',a);
       end;    
begin
  vivod;
  vivodr;
  vivodr15;
  readln;
end.  

Сообщение отредактировано: Korsar - 8.12.2006 21:45