Data update

Task/Loops-While/Langur/loops-while.langur

@@ -1,5 +1,5 @@
-var .i = 1024
-while .i > 0 {
-    writeln .i
-    .i \= 2
+var i = 1024
+while i > 0 {
+    writeln i
+    i \= 2
 }

Task/Loops-While/Mia/loops-while.mia

@@ -0,0 +1,5 @@
+i = 1024
+while i > 0 {
+    print i
+    i = i :/ 2
+}

Task/Loops-While/PascalABC.NET/loops-while.pas

@@ -0,0 +1,7 @@
+##
+var n := 1024;
+while n > 0 do
+begin
+  Println(n);
+  n := n div 2;
+end;