1 files changed, 19 insertions, 0 deletions
diff --git a/misc/pascal/tests/src/005-while.pas b/misc/pascal/tests/src/005-while.pas
new file mode 100644
index 000000000..aceb5f4fa
--- /dev/null
+++ b/misc/pascal/tests/src/005-while.pas
@@ -0,0 +1,19 @@
+{ compute h(n) = 1 + 1/2 + 1/3 +...+ 1/n }
+
+program egwhile(input, output);
+
+var
+  n : integer;
+  h : real;
+
+begin
+  read(n);
+  writeln(n);
+  h := 0;
+  while n>0 do
+  begin
+    h := h + 1/n;
+    n := n - 1;
+  end;
+  writeln(h);
+end.