In/de

var
  blnX: Boolean;
begin
  ...
  blnX := 2 in [0..50];
  ...
end;

var
  chrX: Char;
begin
  ...
  repeat
    ...
    chrX := ...
    ...
  until chrX in ['A', 'B', 'C'];  // Die Schleife wird beendet, wenn die Bedingung Wahr ist.
                                  // Das heisst, wenn der Wert in der Variablen chrX in der Menge ['A', 'B', 'C'] vorkommt,
                                  // dann ist die Bedingung erfüllt.
  ...
end;