add while example

programs/while.tri

@@ -0,0 +1,11 @@
+let
+  var a : Integer
+in
+begin
+  a := 0;
+  while a < 5 do
+  begin
+    put('a');
+    a := a + 1;
+  end
+end