Smart pascal source code


BEGIN
case (1=1) of
   True : WriteLn('T');
   False : WriteLn('F');
end;

case (1=1) of
   False : WriteLn('F');
   True : WriteLn('T');
end;

case (1=1) of
   True : WriteLn('T');
else
   WriteLn('F');
end;

case (1=1) of
   False : WriteLn('F');
else
   WriteLn('T');
end;

{ ### CONSOLE OUTPUTS ###

  T
  T
  T
  T

}

      if (1==1) {
         WriteLn("T");
      } else {
         WriteLn("F");
      }
      if (1==1) {
         WriteLn("T");
      } else {
         WriteLn("F");
      }
      switch ((1==1)) {
         case true :
            WriteLn("T");
            break;
         default :
            WriteLn("F")      }
      switch ((1==1)) {
         case false :
            WriteLn("F");
            break;
         default :
            WriteLn("T")      }