From f8eb36a4e094fa421b5784dd7d205fb803a99751 Mon Sep 17 00:00:00 2001
From: Timothy Warren <twarren@nabancard.com>
Date: Thu, 30 Sep 2021 13:49:53 -0400
Subject: [PATCH] Finish simple_expressions example

---
 simple_examples/keypress.pas           | 0
 simple_examples/simple_expressions.pas | 9 +++++++--
 2 files changed, 7 insertions(+), 2 deletions(-)
 create mode 100644 simple_examples/keypress.pas

diff --git a/simple_examples/keypress.pas b/simple_examples/keypress.pas
new file mode 100644
index 0000000..e69de29
diff --git a/simple_examples/simple_expressions.pas b/simple_examples/simple_expressions.pas
index 121559b..992e182 100644
--- a/simple_examples/simple_expressions.pas
+++ b/simple_examples/simple_expressions.pas
@@ -9,9 +9,14 @@ var
 begin
   WriteLn('Initial value of b is ', b, '; initial value of c is ', c, sLineBreak);
   b := b shr 1; // >> shift right
-  c := shl 4; // << shift left
+  c := c shl 4; // << shift left
   WriteLn('After b shr 1, b is ', b, '; after c shl 4, c is ', c, sLineBreak);
-  WriteLn('c xor b = ',c xor b, '; c and b = ', c and b, '; c or b,'
+  WriteLn('c xor b = ',c xor b, '; c and b = ', c and b, '; c or b = ', c or b);
+  WriteLn('not c is ', not c, '; not b is ', not b);
+  WriteLn;
+  WriteLn('c > b is ', c > b, '; c < b is ', c < b, '; c <> b is ', c <> b, '; c = b is ', c = b);
+  WriteLn;
+  WriteLn('c div b is ', c div b, '; c mod b is ', c mod b);
   {$IFDEF WINDOWS}
   ReadLn;
   {$ENDIF}