not in operator

Smart pascal source code


var i: Integer;
for i := 1 to 10 do
  if i not in [2, 4, 6 .. 8] then
    WriteLn(i);

WriteLn(BoolToStr(1 not in []));

if 'A' not in ['A' .. 'Z'] then
  WriteLn('A not in A..Z');

if 'a' not in ['A' .. 'Z'] then
  WriteLn('a not in A..Z');

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
3
5
9
10
True
a not in A..Z

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

      var i = 0;
      for(i=1;i<=10;i++) {
         if (!(i==2||i==4||((i>=6)&&(i<=8)))) {
            WriteLn(i);
         }
      }
      WriteLn(BoolToStr(!false));
      if (!(("A">="A")&&("A"<="Z"))) {
         WriteLn("A not in A..Z");
      }
      if (!(("a">="A")&&("a"<="Z"))) {
         WriteLn("a not in A..Z");
      }