Smart pascal source code


var
  a = True;
  b = False;
Begin

if (a=b) then WriteLn('True = False');
if (a<>b) then WriteLn('True <> False');
if (b=a) then WriteLn('False = True');
if (b<>a) then WriteLn('False <> True');

a := b;

if (a=b) then WriteLn('False = False');
if (a<>b) then WriteLn('False <> False');

{ <<< CONSOLE OUTPUTS >>>
  True <> False
  False <> True
  False = False
}

      var a = true;
      var b = false;
      if (a==b) {
         WriteLn("True = False");
      }
      if (a!=b) {
         WriteLn("True <> False");
      }
      if (b==a) {
         WriteLn("False = True");
      }
      if (b!=a) {
         WriteLn("False <> True");
      }
      a = b;
      if (a==b) {
         WriteLn("False = False");
      }
      if (a!=b) {
         WriteLn("False <> False");
      }