условие(множества)

[mishammm]

народ обьясните плиз, просто непонял само условие.
сконструировать множество, элементами которых есть буквы 'а'..'т' . Вывести их на экран, предвидить ввод з клавиатуры еще каких небудь символов и определить принадлежность данного элемента новому множеству!
вот мой код:

var
   s:set of char;
   symbol:char;
   begin
   s:=[#1072..#1090];
   repeat
   writeln('vvedi simvoli do mnozhini');
   readln(symbol);
    s:=s+[symbol];
    until symbol = '=' ;
   If symbol in s then
   write(s,'');
   end.

он в принципе работает, все выводит, и буквы от а до т и новые элементы.
но вот непонимаю этого:
определить принадлежность данного элемента новому множеству! мне еще один If условие нужно дописать до свого кода?? чтобы оно игнорировало какие то например символы? не напишу же я просто If symbol in s then writeln('mnozhestvo prinadlezhit'); Поясните плиз

просто если просто ввести пару символов например @ , # , % и писать

If symbol in s then
   writeln('simvol', symbol , 'vxodit');

то оно считатет только 1 символ @ в данном случае. может я не так думаю...испавьте меня если что пожалуйста

[Jaiden]

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

сконструировать множество, элементами которых есть буквы 'а'..'т' . Вывести их на экран, предвидить ввод з клавиатуры еще каких небудь символов и определить принадлежность данного элемента новому множеству!

Мда, ТЗ немного расплывчатое. На основе своего понимания данной задачи, мой вариант ответа:

В данном случае, в твоем коде нарушен порядок действий: для начала надо построить множество с вышеописанными элементами и вывести их на экран. Только после этого предложить пользователю ввод символа (или символов) с клавиатуры, после чего определяется принадлежность данного символа к созданному множеству.

var
   s:set of char;
   symbol:char;
   
begin
   s:=[#1072..#1090];
   write(s,'');
   writeln;
   repeat
     begin
       writeln('vvedi simvoli do mnozhini');
       readln(symbol);
       If symbol in s then writeln ('Exists');
     end
   until symbol = '=';
end.