Initial data commit

Task/Babbage-problem/Seed7/babbage-problem.seed7

@@ -0,0 +1,11 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: current is 0;
+  begin
+    while current ** 2 rem 1000000 <> 269696 do
+      incr(current);
+    end while;
+    writeln("The square of " <& current <& " is " <& current ** 2);
+  end func;