Проверить элементы на принадлежность к множеству.

[altermag]

ПОЖАЛУЙСТА помогите с задачей на pascal
Осуществить ввод элементов заданного множества с клавиатуры. Проверить элементы (также вводимые с клавиатуры) на принадлежность множеству.
Заранее спасибо!!!

[_Dmitry]

Например, игнорирует все, кроме цифр

var
  s: string;
  ch: char;
begin
  repeat
    read(ch);
    if ch in ['0'..'9'] then s:=s+ch
    else
      if ord(ch) = 13 then break;
  until false;
  writeln(s);
  readln;
end.

[altermag]

Спасибо большое!!!