Compare Integers



Compare Integer
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 }