Compare Integers

Smart pascal source code


procedure WriteLnOut(bool: Boolean);
begin
  case bool of
    false:
      Writeln('False');
    true:
      Writeln('True');
  end;
end;

{ main.pas }

var
  one: Integer = 1;
  two: Integer = 2;

Begin
  WriteLnOut(one < two);
  WriteLnOut(one <= two);
  WriteLnOut(one = two);
  WriteLnOut(one >= two);
  WriteLnOut(one > two);
  WriteLnOut(one <> two);

  Writeln('');

  WriteLnOut(one < one);
  WriteLnOut(one <= one);
  WriteLnOut(one = one);
  WriteLnOut(one >= one);
  WriteLnOut(one > one);
  WriteLnOut(one <> one);

  Writeln('');

  WriteLnOut(two < one);
  WriteLnOut(two <= one);
  WriteLnOut(two = one);
  WriteLnOut(two >= one);
  WriteLnOut(two > one);
  WriteLnOut(two <> one);
{ <<< CONSOLE OUTPUTS >>>
  True
  True
  False
  False
  False
  True

  False
  True
  True
  True
  False
  False

  False
  False
  False
  True
  True
  True
}

  var one = 1;
  var two = 2;
  WriteLnOut(one=two);
  WriteLnOut(one>two);
  WriteLnOut(one!=two);
  WriteLn("");
  WriteLnOut(one=one);
  WriteLnOut(one>one);
  WriteLnOut(one!=one);
  WriteLn("");
  WriteLnOut(two=one);
  WriteLnOut(two>one);
  WriteLnOut(two!=one);
function WriteLnOut(bool) {
   if (bool) {
      WriteLn("True");
   } else {
      WriteLn("False");
   }
};