langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Loops-N-plus-one-half/Pascal/loops-n-plus-one-half.pascal
+++ b/Task/Loops-N-plus-one-half/Pascal/loops-n-plus-one-half.pascal
@ -0,0 +1,14 @@
+program numlist(output);
+
+var
+  i: integer;
+
+begin
+  for i := 1 to 10 do
+    begin
+      write(i);
+      if i <> 10 then
+        write(', ')
+    end;
+  writeln;
+end.