diff --git a/programs/while.tri b/programs/while.tri
new file mode 100644
index 0000000..9bbb664
--- /dev/null
+++ b/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